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Liebe ST Leser! 

Daß ein Computer, also auch der ATARI ST, ohne Software ziemlich nutzlos 
ist, sollte bekannt sein. Diese wichtige Tatsache hat auch ATARI erkannt und 
bietet nun nach dem CP/M Emulator schon wieder einige sogenannte Public 
Domain Programme an. Dies sind Programme, die kostenlos auf die eigene Dis- 
kette kopiert und weitergegeben werden können. Zu diesen neuen Programmen 
gehören ein Textverarbeitungsprogramm, eine Datenbank, ein Zeichen- und 
Malprogramm sowie eine Utility Diskette. Nähere Einzelheiten zu den Pro- 
grammen sind in diesem Heft zu finden. ATARI gibt auf diesem Weg den ST 
Besitzern bzw. Käufern ein breites Spektrum an guter Softeware mit nach Hau- 
se. Ich will aber nicht verschweigen, daß die oben genannten Programme als Er- 
satz für GEM-Paint und GEM-Write erscheinen, die nicht mehr geliefert werden 
sollen. Allerdings bin ich der Meinung, daß dies für den Anwender ein sehr gu- 
ter Tausch ist. 

Aber nicht nur ATARI, sondern auch die kommerziellen Softwarehäuser brin- 
gen ständig neue Programme auf den Markt, so daß die Software-Übersicht der 
letzten Ausgabe in manchen Punkten nicht mehr aktuell sein kann. Bemerkens- 
wert ist dabei, das professionelle Anwendersoftware, wie sie z. B. für den IBM 
PC existiert, schon jetzt, und teilweise in verbesserter Form, für den ATARI ST 
zu haben ist. Damit sind dem ATARI ST, der dem IBM PC in Bezug auf Re- 
chenleistung und Speicherkapazität überlegen ist, alle Voraussetzungen gegeben, 
in der „Bürowelt“ oder auch in Betrieben Fuß zu fassen. 

In diesem Sinne ist die ST Redaktion eifrig bemüht, für Sie immer die neuste 
Software zu testen und ausführlich darüber zu berichten. Bleibt nur noch zu hof- 
fen, daß das rasante Wachsen des Softwareangebotes noch eine Weile andauert. 



ST Computer 1 




Allgemeines 

Editorial 

Impressum 


31 


Software 

Erstellen einer doppelseitigen 
Systemdiskette 


Hardcopy mit CP 80 oder 
ähnlichen Druckern 


Druckertreiber für Itoh, 
NEC und andere 


49 


Alles in Einem - 

der Makro-Assembler von Kuma 8 


ST Pascal: 


Ein Compiler von CCD 

14 

Grafik 


Kontrolliertes Chaos 

5 



Bericht 

ST Basic-Vergleich von 
Genauigkeit und Geschwindigkeit 11 

Hardware 



Monitor „scharf“ gemacht 

22 

Supercode: Ein Denkspiel 

17 

GEN 

File Run Ed i t Debug 


OUTPUT 


40 nn 


000 nn 


Einführung in GEM 


29 


Kurse 

Dateiverwaltung 

von Sequentiellen 

und Direktzugriffsdateien 


27 


Pascal-Kurs (Teil 1) 

53 

Logo-Kurs (Teil 2) 

65 

CP/N 


Turbo-Pascal 

43 

Aktuelles 


Einkaufsführer 

58 

Softwarenews 

69 

Informationen 

70 

Erfahrungen & Nachträge 

71 

Leserbriefe 

72 

Vorschau 

71 


2 ST Computer, Nr. 2 




Erstellung einer doppelseitigen 

Systemdiskette 


Wer sich bis jetzt geärgert hat, daß er 
zwar ein doppelseitiges Laufwerk hat, 
aber das TOS sich nur von einer ein- 
seitig formatierten Systemdiskette la- 
den ließ, dem ist nun geholfen. Die 
folgende Anleitung gibt allen Besit- 
zern des ATARI Laufwerks SF 314 die 
Möglichkeit sich selbst eine doppelsei- 
tige Systemdiskette zu erstellen. Damit 
ist es möglich neben dem TOS auch 
noch jede Menge andere Programme 
oder auch Desk-Accessories unterzu- 
bringen. Für die Erstellung der neuen 
Systemdiskette wird allerdings ein Dis- 
kettenmonitor namens „Joshua“ benö- 
tigt, den man sich aber bei jedem 
ATARI-Fachhändler kostenlos kopie- 
ren kann. 

Wer schon weiß, was ein Disketten- 
monitor ist, der kann jetzt den näch- 
sten Absatz überspringen, da nun kurz 
dardauf eingegangen werden soll. 


Ein Diskettenmonitor oder auch 
kurz Diskmonitor genannt ermöglicht 
den Inhalt einer Diskette in Form von 
hexadezimalen Zahlen bzw. ASCII- 
Zeichen anzusehen oder auch zu ver- 
ändern. „Joshua“ ist nun nicht nur ein 
solcher Diskmonitor, sondern man 
kann mit ihm noch einiges mehr, wo- 
rauf wir hier aber nicht näher einge- 
hen wollen. Er liest und schreibt 
immer ein Langwort, in dem vier he- 
xadezimale Zahlen zusammengefaßt 
sind. Zum Beispiel „60384C6F“, das 
erste Langwort aus unserem Bild 1. 

Um nun einen Diskmonitor benutzen 
zu können, muß man noch wissen, 
daß jede Diskette beim Formatieren in 
sogenannte Tracks und Sektoren ein- 
geteilt wird. Bei den ATARI-Lauf- 
werken SF 354 und SFD 314 sind es 80 
Tracks zu je 9 Sektoren. Ergänzender- 
weise muß man noch erwähnen, daß 


diese Laufwerke sogar 83 Tracks nut- 
zen können, dies aber software-mäßig 
nicht vorgesehen ist. 

Der Sektor, der uns nun interessiert, 
ist der Sektor 1 auf Track 0, der soge- 
nannte Bootsektor. In ihm steht ein 
einleitender Ladesatz, der automatisch 
beim Formatieren generiert wird. Die- 
ser Ladesatz dient dazu zu überprüfen, 
ob eine richtig formatierte oder intak- 
te Diskette im Laufwerk ist. Außer- 
dem wird der Ladesatz bei einem 
Reset oder Start des Systems in den 
Arbeitsspeicher geladen, um dort zu 
überprüfen, ob eine Systemdiskette 
mit dem TOS im Laufwerk ist. Das ei- 
gentliche Problem eine doppelseitige 
Systemdiskette zu erstellen, besteht 
nun darin, daß eben der richtige Boot- 
sektor auf der neuen doppelseitig for- 
matierten Diskette fehlt. Der Boot- 
sektor wird nämlich nur dann mit- 


nn. Read, Unte. Hext, Previous, Boot, Modify, Copy, eXit 
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Bild 1: Geänderter Bootsektor 
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kopiert, wenn man eine ganze Disket- 
tet auf einmal kopiert. Da aber von 
einer einseitigen (Original-Systemdis- 
kette) auf eine doppelseitige neue Dis- 
kette kopiert werden muß, bekommt 
man eine Fehlermeldung, daß Original- 
und Zieldiskette im Format nicht 
übereinstimmen. Man muß also alle 
Dateien der Systemdiskette einzeln 
kopieren, was aber dann den Nachteil 
hat, daß der Bootsektor fehlt. Aus die- 
sem Grund muß man jetzt „Joshua“ 
benützen. Mit ihm wird der Bootsek- 
tor einfach von der einseitigen System- 
diskette eingelesen, auf die neue 
doppelseitige Systemdiskette kopiert, 
modifiziert und anschließend noch die 
Prüfsumme des Bootsektors berechnet 
und abgespeichert. 

Die folgende Anleitung ist dazu genau 
zu befolgen. 

1. Eine neue Diskette doppelseitig 
formatieren. 

2. Alle Dateien der Original-System- 
diskette einzeln auf die doppelsei- 
tige Diskette kopieren. 

3. „Joshua“ laden und Taste drücken. 
Danach erscheint eine Kurzüber- 
sicht der „Joshua“-Befehle. 


4. Taste „E“ für die Benutzung des 
Diskmonitors drücken. 

5. Originalsystemdiskette in das Lauf- 
werk einlegen. 

6. Taste „R“ für READ (Lesen) 
drücken. 

7. Track: 0 Sektor: 1 eingeben. 

8. Doppelseitige Diskette mit TOS- 
Dateien in Laufwerk einlegen. 

9. Taste „W“ für WRITE (Schreiben) 
drücken. 

10. Track: 0 Sektor: 1 eingeben. 

11. Mit Taste „Y“ für YES bestätigen, 
daß der Bootsektor auf die neue 
Systemdiskette geschrieben wer- 
den soll. 

12. Taste „M“ für MODIFY (Modifi- 
zieren) drücken. 

13. Mit Taste „D“ den Cursor nach 
rechts auf das fünfte Langwort set- 
zen und „Return“ drücken. (Die 
übrigen Cursorbewegungen liegen 
auf den Tasten „S“ für links, „E“ 
für oben und „X“ für unten.) 

14. Jetzt erscheint am oberen Bild- 
schirmrand das alte Langwort 
(OLD VALUE) „027000D0“. Hin- 
ter NEW VALUE jetzt „ 027000 A0“ 
eingeben und mit „Return“ be- 
stätigen. 


15. Das 6. Langwort von „02F80500“ 
auf „05F80500“ und das 7. Langwort 
von „09000100“ auf „09000200“ 
wie oben beschrieben umändern. 

16. Ende der Änderung mit Taste 
„Esc“. 

17. Mit Taste „Y“ für YES das Schrei- 
ben der Änderung auf Diskette be- 
stätigen. 

18. Taste „B“ für „Boot erstellen“ 
drücken. 

19. Die Frage „Boot COMMAND. 
PRG first“ mit „N“ für NO ver- 
neinen. 

20. Die Frage „Calculate Boot check 
sum“ mit „Y“ für YES bejahen. 

21. Neue Prüfsumme mit „Y“ für 
YES auf die Diskette schreiben. 

22. Mit Taste „X“ für EXIT (Aus- 
gang) ins Ausgangsmenü. 

23. Durch gleichzeitiges Drücken von 
„Control“ und „C“ wieder in den 
Desktop zurückkehren. 

Wenn diese Anleitung genau befolgt 
wurde, ist man jetzt im Besitz einer 
doppelseitigen Systemdiskette. Ob al- 
les geklappt hat, kann man leicht 
durch einen Neustart des Systems 
überprüfen. 


Neu für ATARI 260/520 St: 

• Funkfernschreibprogramm - RTTY 98, - DM 

• Wettersatelitenbilder empfangen + aufzeichnen 2 998,- DM 

• Oki-Drucker komplett (Etiketteneinzug von unten) 998,- DM 

• 260 St 1 298,- DM 

• 260 St 1 Mb 1 548,- DM 

• Aufrüstung auf 1 Mb 298,- DM 

• Softwareliste 2,- DM 

3.5” Diskettenangebot: Markendisketten 1 D 10 Stück 79,- DM 
2 FIDE DD 135 TPI 10 Stück 99,- DM 

Diskettenkasten für 30 Disketten 39,- DM 

Drucken in Farbe mit dem 260/520 St Okimate 20 898,- DM 


KFC-Computer Wiesenstr. 18, 6240 Königstein 1 
Tel. 0 61 74/3033 
Mailbox 53 55 


ST-TERM Plus ist da!!! 


Universelles Terminal-Programm 
für Modem, Mail-Box und Datenübertragung 
mit anderen Rechnern. Abspeichern auf Disk 
möglich, Belegung der Funktionstasten mit 
beliebigen langen Texten, Umlautwandlung 
und vielen Extras. 

Jetzt unter GEM 


Incl. auführlichem deutschen Handbuch 

DM199,— (Vorkasse frei/NN zugl. P + V) 


ING.-Büro ZOSCHKE 

Postfach 1264 
8150 Holzkirchen 
Telefon 08024/3592 
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Kontrolliertes Chaos 



Mit diesem Programm läßt sich ein ab- 
straktes Bild erzeugen. Obwohl es 
eher nach einem mißglückten Pro- 
grammierversuch aussieht, ist das Gan- 
ze doch zu steuern. Es wird hierbei 
eine Besonderheit des CIRCLE bzw. 
des PCIRCLE-Befehls ausgenutzt, der 
normalerweise für Anfangs- und End- 
winkel Werte zwischen 0 und 3 600 
(also Grad ★ 10) erwartet. Bei Werten 
über 3 600 fängt er wieder am Null- 
punkt an. Erreicht der Winkel nun 
aber Werte über 32 768, so fühlt sich 
der interne Kreis-Algorithmus dazu 
veranlaßt, wunderschöne bizarre Mu- 
ster auf dem Bildschirm zu entwerfen. 
Verwendet man den PCIRCLE-Befehl, 
so wird der entstehende Körper auch 
ausgemalt, wobei man einen Eindruck 
von der hohen Geschwindigkeit be- 


kommt, mit der das Basic Flächen aus- 
malt. Das Programm legt den Anfangs- 
winkel mit 32 768 fest und erhöht ihn 
bei jedem Durchgang. Erreicht der 
Winkel Werte die größer als 65 536 
sind, so verhält sich der Befehl wieder 
eine Weile normal. Da wir das hier na- 
türlich vermeiden wollen, setzen wir 
ihn wieder auf den Anfangswert. Die 
Koordinaten des PCIRCLE-Befehls 
werden mit Hilfe der Zufalls-Funktion 
bestimmt und plazieren den Ursprung 
dieses doch sehr künstlerisch ange- 
hauchten Grafikbefehls über den ge- 
samten Bildschirm. Durch Änderung 
der Befehlsparameter können viele an- 
dere interessante Bilder erzeugt wer- 
den. Hier sei zum Beispiel empfohlen 
die x/y-Koordinaten festzulegen oder 
den Radius zu verkleindern. 


List of CHAOS.BAS 

100 ’ Kontrolliertes CHAOS 

110 by Harald 

120 ’ 

130 FULLW 2: CLEARW 2: CLOSEW 3 
140 wa = 32768 
150 Start: 

160 COLOR 1,1,1,B,2 

170 x = rnd(l)^500 

180 y=rnd(l)^400 

190 r = rnd(l)*300 

210 PCIRCLE x,y,r,wa,wa + 200 

220 wa = wa + rnd(l)^ 500 

230 b = b+l : if b>24 then b=l 

240 if wa>65536 then wa = 32768 

250 goto Start 
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Hardcopy mit CP80 
oder ähnlichen Druckern 



Ein Manko einiger Drucker war bis- 
her, daß sie bei der eingebauten 
Hardcopy-Funktion des ATARI ST 
nicht funktionierten. Bei Anwählen 
der ’Alternate Help’-Funktion sah sich 
der Drucker dazu veranlaßt entweder 
nur Zeichensalat, wildes Gepiepse und 
Formfeeds auf das Papier zu bringen 
oder eine Hardcopy auszugeben, die 
horizontal gestaucht war und größere 
Zwischenräume aufwies. 

Die Ursache war klar. Diese Drucker 
verstehen andere Bitmap-codes als 
IBM oder Epson-kompatible Drucker. 

Zur Anpassung gibt es verschiedene 
Möglichkeiten. Man kann eine neue 
Druckerroutine schreiben die speziell 
auf den verwendeten Drucker ange- 
paßt ist. Dies ist allerdings ein kompli- 
zierter Weg, der zwar mit jedem 
Drucker funktioniert, sei er auch noch 


Die Anpassung kann mit folgendem 
Basic Programm erfolgen: 


10 ’Druckeranpassung CP 80 oder ähnliche Drucker 
20 poke &hl6D76,&h3315 ’ Linefeed auf 15/216” 

30 poke &hl6D72,&h4CFF ’ Bitmap normale Größe 
40 poke &hl6D6E,&h4CFF 5 Bitmap verkleinert 
50 ’ poke 8thl6D6E, &h4BFF Bitmap vergrößert (Hälfte des Bildschirms) 
60 ’ poke &hl6D72, 8h4BFF Bitmap vergrößert (2/3 des Bildschirms) 

70 poke &h88D4,0 ’ Linefeed ausschalten 

80 poke &h8924,0 5 Linefeed ausschalten 

90 print "Drucker angepasst” 
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so ungewöhnlich. Bei den meisten 
Druckern ist aber ein wesentlich einfa- 
cherer Weg praktizierbar, nämlich ei- 
ne Änderung im BIOS. Hierfür muß 
man den Teil des BIOS, der die 
Druckersteuerung beinhaltet, anpas- 
sen. Da das BIOS aber eine beachtliche 
Länge aufweist, ist dies ohne Hilfsmit- 
tel auch für den erfahrenen Assembler- 
programmierer kaum zu bewältigen. 

Zweckmäßigerweise benötigt man ein 
dokumentiertes BIO-Listing, wie es 
zum Beispiel im 'Intern' Buch von Da- 
ta Becker enthalten ist. Zwar treten 
aufgrund der verschiedenen TOS- Ver- 
sionen einige Unterschiede zwischen 
Listing und der eigentlichen Version 
auf, in unserer Anwendung aber wa- 
ren keine Unterschiede vorhanden. 

Die Druckersequenzen sind im Spei- 
cherbereich von S16D5E bis $16D87 
abgelegt und können auf den eigenen 
Drucker angepaßt werden. Entschei- 
dend sind hierbei die Bitmapcodes 
($16D6D; S16D71) und der Code zur 
Einstellung des Linefeeds (S16D75), da 
diese sich bei einigen Druckern unter- 
scheiden. 

Der CP80 zum Beispiel wird mit 'Es- 
cape 4C' auf hohe Auflösung geschal- 
tet. Die Hardcopy geht damit, falls die 
Druckeranpassung im Desktop auf 
1280 gestellt wurde, über die ganze Pa- 
pierseite, was der normalen Hardcopy 
entspricht. Wenn man die Druckeran- 
passung im Desktop auf 960 stellt, be- 
kommt man einen horizontal verklei 
nerten Ausdruck, der dann allerdings 
nicht mehr maßstabsgerecht ist. 

Falls man nun in die beiden Speicher- 
zellen, die den Bitmapmodus einschal- 
ten (siehe Programm) eine 'Escape 4B’ 
schreibt, entstehen horizontal gedehn- 
te Hardcopies, die sich je nach einge- 
stellter Druckerauflösung im Desktop, 
unterscheiden. Eine solche Ausschnitts- 
vergrößerung bildet dann natürlich 
nur noch einen Teil des linken Bild- 
schirmes ab, ist aber für den Einzelfall 
recht interessant. 

Auf diese Art und Weise kann man 
auch auf Druckern, die ohne diese An- 
passung eine korrekte Hardcopy zu 
Papier bringen, eine Veränderung des 
Hardcopyformates erreichen. 

Viel Erfolg beim Experimentieren. 


Atari macht Spitzentechnologie preiswert. 

WIR MACHEN SPITZENSOFTWARE PREISWERT ! 


QUIWI 

Unser erstes Programm für den fltarl ST 
und das erste Computerspiel für die ganze 
Familie! Uorbel sind die einsamen Stunden 
am Monitor - Jetzt können alle mltsplelen, 
Jung und alt. 

• Bis zu 15 Mitspieler 

• Original deutsche Fragen mit Umlauten 
(keine Übersetzung) 

• Rund 4000 Fragen aus 6 Wissensgebieten 

• Spielerisch dazulemen 

• Einfache Bedienung mit der Maus 

• Mit schöner (Färb-) Grafik und Musik 

• Jederzeit erweiterbar durch Ergönzungs- 
disketten 

• Für Färb- und S/W-Monitor geeignet 

3,5'-Diskette für Rtari 

260 ST, 520 ST, 520 ST+ nil 1*1 69,- DM 


PROGRAMMIERER 
GESUCHT ! 

Wir suchen Programmierer, die (Assem- 
bler-) Programme uom Commodore 64 für 
den Rtari ST umschreiben oder neue Pro- 
gramme für Rtari ST entwickeln. Wenn Sie 
Interesse haben, so rufen Sie uns an oder 
schreiben Sie uns (Ansprechpartner: Herr 
Schäfer). 


Alle Preise verstehen sich als unverbindliche Prelsempfehlung 
inkl. Mvst. zzgl. 5,- DM Porto & Verpackung. Sie erhalten 
KINGSOFT -Programme Im Computer -Fachhandel, ln den Fachab- 
teilungen der Kauf- und Varenhouser oder direkt von uns. 

K I N (3 S CD F T 

SPITZEN-SOFTWARE 
l\/lad© in Germanv 

F. Schäfer, c hnar' sch 4, 5106 Roetgen, Tel. 0 24 08/ 51 19 
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SEKA 

Assembler 



Assembler ist ein Begriff, der leicht 
Schrecken erweckt und das nicht ohne 
Grund, denn die Beherrschung von 
Assembler gehört zu der höheren 
Schule der Programmierung. 

Warum in Assembler programmieren? 
Die Frage ist insofern berechtigt, daß 
es auch andere Sprachen gibt, wie z. B. 
C oder FORTH, die „fast“ so schnell 
wie Assembler Programme sind. Es 
existieren aber Bereiche, wie bei der 
Graphikherstellung, gewählten Pro- 
blemen bei der Verarbeitung von gro- 
ßen Mengen an Daten, in der Mes- 
sungs- und Steuerungstechnik usw., in 
denen der Schnelligkeitsfaktor eine 
große Rolle spielt. Eingriffe, Änderun- 
gen und Erweiterungen im Betriebssy- 
stem sind in der Regel nur in Assem- 
bler durchführbar. 

Erfahrungsgemäß wird jeder intensive 
Programmierer sich irgendwann mit 
dem Maschinen-Code seines Rechners 
beschäftigen. Für jene ist ein Assem- 
bler ein unentbehrliches Werkzeug. 

KUMA bietet für alle ST-Besitzer ein 
Assembler-Paket, welches sehr kom- 
pakt aufgebaut ist. 

Der Editor und das Editieren 

Um ein Programm herzustellen, 
braucht man einen Text-Editor, mit 
dem das Programm wie ein normaler 
Text geschrieben wird. In der Regel ist 
ein Editor einem Textverarbeitungs- 
programm sehr ähnlich, wobei die 
Unterschiede nur in dem Komfort des 


Alles in Einem! 

Der Makro-Assembler von KUMA 


letzteren liegen. 

Normalerweise gehört zu einem 
Assembler-Paket ein Editor, sowie an- 
dere Hilfsprogramme, die nach Bedarf 
einzeln nachgeladen und ausgeführt 
werden. Bei KUMA ist das anders, 
Editor, Assembler, sowie Debugger 
werden im Rechner einmal geladen 
und bleiben erhalten. 

Der Editor des KUMA Assembler- 
Pakets ist ein sogenannter Zeilen- 
Editor, und damit gehört er zur Prähi- 
storie der Editierung. Nach Eingabe 
von „I“ wird automatisch eine Zeilen- 
Nummer generiert, die nicht beliebig 
zu ändern ist. Dann stehen auf dieser 
Zeile beide Cursorbewegungen, nach 
links und rechts, zur Verfügung. Die 
Delete-Taste, sowie Backspace, dienen 
zum Löschen eines Zeichens in Bezug 
auf die Cursor-Position. Jede Zeile 
wird durch RETURN abgeschlossen 
und übernommen. Gleichzeitig be- 
steht aber auch noch die Möglichkeit 
mit „Control P“ anstatt des RETURN 
alle Ausgaben des Assemblers nicht 
auf den Bildschirm, sondern auf einen 


Drucker auszugeben. 

Möglichkeiten den Cursor nach oben 
oder unten frei zu bewegen, existieren 
nicht, genausowenig wie das Ein- 
rücken von Textblöcken. Das Reedi- 
tieren läuft unter großem Aufwand 
ab: Durch den Befehl TARGET-Zei- 
lennummer wird der Cursor auf die 
gewünschte Zeile verlagert; danach 
kann man mit EDIT-Zeilennummer 
die Zeilen verbessern oder verändern. 

Man muß zugeben, daß ein solcher 
Editor für längere Programme nicht 
geeignet ist, bei kürzeren Programmen 
ist man allerdings dankbar, daß das 
Nachladen von Editor-Assembler, Lin- 
ker usw. entfällt. Wenn man sich bes- 
sere Editierungsmöglichkeiten wünscht, 
kann man sich durch das Anwenden 
eines besseren Editors (z. B. der von 
METACOMCO) oder durch ein nor- 
males Textverarbeitungssystem (z. B. 
SM-Text) helfen. 

Der Assembler 

Der Assembler von KUMA läßt kaum 
Wünsche offen. Er erkennt alle Stan- 
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dard-Motorola-Mnemoniks des 68000er 
Prozessors. Damit können Program- 
me, die für den Prozessor mit einem 
anderen Assembler geschrieben wor- 
den sind, und soweit sie nicht system- 
abhängig sind, ohne weiteres über- 
nommen werden. Das Eingabeformat 
ist nicht festgelegt und dem Program- 
mierer freigestellt. Das bedeutet, daß 
nicht überall mit Blanks angeordnet 
werden soll, das verrichtet der Assem- 
bler selbst. 


Eine Eingabe kann so aussehen: 

MOVE. B #147, D2 
oder 

EIN: MOVE. L #$OA, DO 


Die einzige Einschränkung besteht 
nur darin, daß eine Eingabe einen 
Assembler-Sinn haben muß, so, wie 
die obigen Beispiele. Die nächste No- 
tation wäre ein unsinniger Text: 

MOVE. W (Al) 

Diese Eingabe wird von dem Editor 
übernommen, aber für den Assembler 
fehlt ein Operand und er weiß nicht, 
was er mit ihm anfangen kann, so daß 
eine Fehlermeldung resultiert. 

Der Assembler akzeptiert und verar- 
beitet Labels beliebiger Länge, die eine 
Mischung von Buchstaben und Zahlen 
sein können, wobei die einzige Ein- 
schränkung darin besteht, daß das er- 
ste Zeichen immer ein Buchstabe sein 
muß. Die Labels werden von einem 
Assembler-Befehl durch Doppelpunkt 
(:) getrennt. 

Nach einem Operanden-Feld kann 
man beliebige Kommentare hinzufü- 
gen. Diese werden von dem Operan- 
den-Feld durch ein Semikolon (;) ge- 
trennt. Numerische Ausdrücke sowie 
mathematische und logische Operatio- 
nen stehen zur Verfügung. 

Eine Reihe von Pseudo-Operatoren 
kommen dem Programmierer zu Hil- 
fe. Sie dienen in den meisten Fällen 
zur Steuerung des Assembler-Listings, 
sowie zur einfachen Generierung von 
Tabellen. 


z. B. folgende Pseudo-Operatoren: 

Tabelle = $ 7FD00 
oder 

DC.L $ 70000,.... 

Außer der bedingten Assemblierung 
verfügt der KUMA Assembler über ei- 
ne sogenannte direkte Assemblierung. 
Nach Eingabe von „A“ (für Assem- 
bler), gefolgt von einer Adresse be- 
ginnt der Assembler direkt zu inter- 
pretieren sowie auszuführen. Dabei 
sind Kommentare wie Labels nicht 
mehr möglich. Bei der bedingten As- 
semblierung stehen verschiedene Op- 
tionen zur Wahl: Durch Option „O“ 
werden Verzweigungen optimiert. Das 
Auswählen von „L“ veranlaßt den Lin- 


ker einen verknüpfbaren Code zu erzeu- 
gen. Bei „E“ oder „P“ wird ein for- 
matiertes Listing aus dem Drucker ge- 
schickt. Eine Auflistung auf dem Bild- 
schirm findet durch die Option „V“ 
statt. Dabei können auch mehrere Op- 
tionen miteinander vermischt werden. 

Der Linker 

Normalerweise generiert ein Assem- 
bler einen verknüpfbaren Code, der 
später durch ein Hilfs-Programm, dem 
sogenannten Linker, in einen ausführ- 
baren Code umgewandelt wird. Bei 
dem KUMA Assembler ist dies etwas 
anders. Der Assembler erzeugt ein 
Programm, das sofort ausführbar ist. 
Der Linker seinerseits, erzeugt ein 
Programm, das zum Teil optimiert 


worden und deswegen schnell ist. Bei 
kurzen Programmen kann man auf 
den Linker ganz verzichten. 

Die „L“ Option in Assembler-Modus 
erzeugt ein „gelinktes,, Programm. Da- 
bei ist zu beachten, daß der Linker nur 
mit absoluten, nicht verschiebbaren 
Werten arbeitet. 

Der Debugger 

Bei der Programmierung von höheren 
Sprachen unterlaufen häufig Fehler, 
die nur nach einer langen Suchaktion 
zu finden sind. Bei der Assembler- 
Programmierung ist das auch nicht an- 
ders, nur daß hier das Auffinden eines 
Fehlers um einiges problematischer ist 
als in BASIC. Hier schafft nur ein De- 


bugger Abhilfe. Das Assembler-Paket, 
das uns heute beschäftigt, besitzt ein 
durchaus komfortables „Fehlersuch- 
programm“. 

Alle existierenden Register des 68000er 
Prozessors werden durch die Option 
„X“ angezeigt. Mit „X“, plus der An- 
gabe eines bestimmten Registers wird 
dessen Inhalt angezeigt und dessen 
Veränderung ermöglicht. Suchfunk- 
tionen, sowie Einzelschrittabläufe ei- 
nes Programms sind auch möglich. 
Ganze Speicherbereiche können ent- 
weder gefüllt oder kopiert werden. 
Multiabbruchpunkte kann man belie- 
big setzen um den Ablauf eines Pro- 
gramms zu beobachten. 
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Für Ihren 

ATARI 520/260 

VIP Professional 

Datenbank / Kalkulation / Grafik 

Preis: 748,- DM* 

GEM-PASCAL 
Preis: 248, - DM* 

Wörterbuch (Speller) 
Preis: 248,- DM* 

Superfond 
Preis: 248,- DM* 

Bei Ihrem Händler oder 
Lieferung frei Haus durch uns 

* unverbindlich empfohlener 
Verkaufspreis inkl. MwSt. 


Diskettenservice 

Diskettenservice 

Ab sofort können Sie sämtliche 
Programme der Januar- und Fe- 
bruarausgabe auf einer Diskette 
(3 1/2 Zoll) beim HEIM-Verlag 
für DM 28,— bestellen. Dieser 
Service gilt auch für die kommen- 
den Ausgaben. 

Adresse: 

//e/m-Ve rlag 

Heidelberger Landstr. 194 
6100 Darmstadt-Eberstadt 
Telefon (0 61 51) 5 53 75 


Assembler 

mit MAKRO-Verarbeitung 

Der KUMA-Assembler bietet die 
Möglichkeit der Erstellung von MA- 
KROS, die ohne Zweifel dem Pro- 
grammierer, sowie der Lösbarkeit 
eines Programms, zu Hilfe kommen. 
Ein MAKRO bildet eine bestimmte 
Befehlssequenz, die fortwährend wie- 
derholt wird, und nicht eine Verzwei- 
gung im Programm, wie es der Fall bei 
einem Unterprogramm wäre. Deswe- 
gen wird ein Programm, das MAKROS 
verwendet, immer länger, aber in der 
Regel schneller. 

Ein MAKRO wird durch eine Kopf- 
zeile charakterisiert, wo immer ein 
Name oder ein Symbol erscheint. Der 
Name wird durch Doppelpunkt von 
dem Befehl MAKRO getrennt. Später 
kann dieser mit verschiedenen Lokal- 
parametern versehen werden. Eine 
MAKRO-Definition wird durch den 
Befhl ENDM beendet. 

Die Dokumentation 

Das mitgelieferte Handbuch umfaßt 
30 Seiten, in denen die verschiedenen 
Befehle, sowie Fehlermeldungen sehr 
mager erklärt sind. Dieses Handbuch 
ist keine Hilfe (muß auch nicht sein) 
für einen Anfänger, der sich mit der 
Befehlsübersicht des 68000er Prozes- 
sors nicht auskennt. Hier muß man 
sich ein spezielles Buch über die Tech- 
nik der Programmierung dieses Pro- 
zessors besorgen, wie es auch von 
KUMA empfohlen wird. Zwei Bei- 
spiele sollen den Umgang mit dem As- 
sembler verdeutlichen. 

Das ist für den erfahrenen Program- 
mierer ausreichen. Für diejenigen, die 
noch nicht erfahren genug sind, wären 
ein paar Beispiele mehr angebrachter, 
aber das würde den Rahmen dieses 
Tests sprengen. 

Was uns an dem KUMA Assembler 
gefällt, ist, daß es sich um einen kom- 
pakten Einpaß-Assembler handelt, mit 
angenehmen Möglichkeiten zur Feh- 
lersuche, sowie der Herstellung von 
MAKROS. Der schwache Punkt wäre 
der einfache Zeilen-Editor. Aber wo 
bekommt man alles auf einmal und da- 
zu noch perfekt. 
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Vergleich von Genauigkeit und Geschwindigkeit 


Genauigkeit bei der 
Zahlendarstellung 

Wenn man mit einem Computer ar- 
beitet geht man meist davon aus, daß 
die Ergebnisse, die man bei Rechen- 
operationen erhält stimmen. Wenn 
man sich näher mit dem Computer be- 
schäftigt und wie er Rechenoperati- 
onen durchführt, dann versteht man, 
daß dies nicht immer der Fall sein 
kann. Während Taschenrechner meist 
mit BCD-Zahlen, also dezimal, rech- 
nen wandeln Computer im allgemei- 
nen eingegebene Dezimalzahlen in 
Dualzahlen um. Bei dieser Umwand- 
lung entstehen Rundungsfehler, weil 
der Rechner nur eine begrenzte An- 
zahl von Stellen für die Mantisse zu 
Verfügung stellt. Das ATARI ST BA- 
SIC stellt bei einfacher (normaler) Ge- 
nauigkeit nur sechs Stellen zur 
Verfügung. Wenn man Variablen als 
’Doppelgenaue’ definiert, erhält man 
neunstellige Ergebnisse. Doch ist da- 
bei nur die siebte Ziffer noch eine 
’Echte’. Die beiden anderen scheinen 
durch Zufall zu entstehen. Hier ein 
paar Beispiele: 


Eingabe: 

123456 

1234567 

100000.9 
999999 ★ 10 
999.999 

9.9 

3.1415 

Tabelle 1 


Ausgabe: 

einfach- 

123456 

1.2345E+06 

100000 

9.9998E+06 

999.998 

9.89999 

3.14149 


doppeltgenau 

123456 

1234567.04 

100000.9 

9999989.76 

999.998976 

9.89999936 

3.14149984 


Man muß diesem Basic deshalb eine 
schlechte Genauigkeit anlasten, zumal 
selbst doppeltgenaue Variablen nur 
magere sieben relevante Stellen liefern. 
Der IBM AT kann hier zum Beispiel 


7 bzw. 17 Stellen aufweisen und selbst 
der Commodore 64 bringt 8 Stellen, 
ohne die Möglichkeit der doppelten 
Genauigkeit zu besitzen. Die Unge- 
nauigkeiten, die sich daraus ergeben, 
sollten jedem Programmierer bzw. 
Anwender klar sein, weil er sonst Er- 
gebnisse oder Fehler nicht erkennen 
bzw. richtig beurteilen kann. Die ein- 
fachen Beispiele aus Tabelle 1 verdeut- 
lichen in ausreichender Weise, daß der 
Rechner selbst bei einfachsten Zahle- 
nausgaben keine exakte Darstellung 
liefert. 

Auch die Integervariablen (mit dem 
%-Zeichen gekennzeichnet) haben Be- 
sonderheiten, wobei sich diese aus den 
oben angegebenen Gründen erklären 
lassen. Bei bis zu sechs Stellen hinter 
dem Komma ist das Ergebnis tatsäch- 
lich der Integer dieser Zahl, ab sieben 
Stellen wird es jedoch interessant. 
Bleibt man unter einundzwanzig Stel- 
len wird es jedoch interessant. Bleibt 
man unter einundzwanzig Stellen, so 
ist die Sache noch harmlos, die Zahl ist 
dann der aufgerundete Integerwert. 
Gibt man nun, aus welchem Grund 
auch immer, einundzwanzig Stellen 
ein, so wird das Programm mit der 
Meldung ’System error #%N, please 
restart at line...’ abgebrochen. Hier ist 
also Vorsicht geboten und auch bei 
zweiundzwanzig Stellen und mehr, 
denn dann lautet das Ergebnis Null. 

Die angesprochenen Fehler werden si- 
cherlich nur selten auftreten, denn wer 
gibt schon so viele Stellen ein wenn 
der Rechner nur sechs oder sieben be- 
nutzt. Aber etwas ungewöhnlich ist es 
schon, und andere Basic-Versionen 
schaffen es doch auch annehmbare Er- 
gebnisse zu liefern. 

Zu guter letzt noch ein Beispiel zu ei- 
ner einfachen Subtraktion. 

1 . 01 - 0 . 01-1 - 0 
1.01-1-0.01 = -9.31322E-09 


Auch hier ist das Ergebnis bemerkens- 
wert, wenn auch der Fehler mit rund 
IE - 10 nur sehr gering ist, so zeigt es 
doch, daß man auch damit vorsichtig 
umgehen sollte und bei dieser Rech- 
nung z. B. keine Abfrage nach Null 
machen sollte. 

Eine weitere Besonderheit ist der Wer- 
tebereich der darstellbaren Zahlen. Er 
reicht nicht, wie allgemein üblich, von 
1E-38 bis 1E + 38, sondern nur von 
ca. 9E-20 bis 5E+18. Bei größeren 
bzw. kleineren Werten wird wieder- 
um Null ausgegeben. 

Wenn man zu diesen Einschränkun- 
gen das gesamte Basic beurteilen soll, 
so muß man ihm einen mächtigen 
Sprachumfang bestätigen, der jedoch 
an manchen Stellen Lücken aufweist. 
Hinzu kommen die in diesem Artikel 
aufgezählten Mängel und noch einige 
andere, die jedoch nicht zu diesem Ge- 
biet passen (z. B. GOTOXY, IN- 
KEYS). Da das ST-Basic, zumindest 
zur Zeit, von einer Diskette geladen 
werden muß, ist es kein großes Pro- 
blem jederzeit Änderungen daran vor- 
zunehmen. Man kann also hoffen, daß 
an diesem Basic weitergearbeitet wird 
und daß dann ein wirklich gutes Basic 
daraus wird. Gute Voraussetzungen 
sind dafür zur Genüge gegeben. 

Geschwindigkeit des ST-BASIC 

Um die Geschwindigkeit des Basic’s 
bewerten zu können muß man die 
Ausführungszeit einzelner Befehle fest- 
stellen. Diese kann man dann mit den 
Zeiten anderer Rechner vergleichen 
und bewerten. Da die Ausführungszeit 
im Bereich von einigen Millisekunden 
liegt, muß man den einzelnen Befehl 
mehrmals ausführen um die Zeit be- 
stimmen zu können. Dazu wird eine 
einfache Schleife (siehe Listing) be- 
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nutzt. Für die Ausführung dieser (Leer-) 
Schleife benötigt das Programm 8,7 Se- 
kunden. Diese Zeit muß nun bei jeder 
weiteren Zeitmessung abgezogen wer- 
den um die Zeit für das lOOOOmalige 
Ausführen des Befehls zu erhalten. 
Teilt man dieses Ergebnis durch 10, so 
erhält man die Ausführungszeit für ei- 
nen Befehl in Millisekunden. Die Aus- 
führungszeiten werden denen des GW- 
Basic auf dem IBM-kompatiblen Com- 
modore PC 10 gegenübergestellt (siehe 
Tabelle 2). Wie man sieht ist der Inter- 
preter des ST-Basic sehr schnell. Es 
gibt fast keinen Unterschied zwischen 
den Grundrechenarten und den Funk- 
tionen SIN, SQR und LOG. Sie benö- 
tigen alle nur rund 1,5 Millisekunden 
für ihre Ausführung. Das GW-Basic ist 
zum Teil deutlich langsamer. Es benö- 
tigt schon für die Grundrechenarten 2 
ms. Bei den Funktionen Sinus und Co- 
sinus wird es dann besonders deutlich. 
Das ST-Basic ist hier mehr als lOmal so 
schnell. Bei den Funktionen LOG, 
ATN und SQR holt das GW-Basic 
zwar wieder auf, doch es erreicht auch 
hier nicht die Geschwindigkeit des 
ATARI-Basics. Erst wenn es um die 
Bildschirmausgabe geht zeigt das ST- 
Basic Schwächen. Zum Testen sollen 
die Zahlen 1 bis 1 000 mit einer einfa- 
chen Schleife auf dem ganzen Bild- 
schirm ausgegeben werden. Geschieht 
die Ausgabe mit ’PRINT A’, so benö- 
tigt das Programm dafür 3 Minuten 
und 35 Sekunden. Dies ist eine beacht- 
lich lange Zeit. Augenscheinlich hat 
das ST-Basic Schwierigkeiten mit dem 
'Scrollen’ des Bildschirms. Benutzt 
man nämlich statt des angesprochenen 
Befehls die Anweisung ’GOTOXY 1,1 
: PRINT A’, so werden dafür nur 24 
Sekunden benötigt. Das GW-Basic ist 
hier eindeutig im Vorteil (siehe Tabel- 


1 FULLW 2 : CLEARW 2 

2 X = 0 : Y-9 

3 PRINT "START !” 

4 FOR A = 1 TO 10000 

5 ... 

6 NEXT A 

7 PRINT "STOP !” 

8 END 

9 RETURN 

Listing 1 zu Bestimmung der 
Ausführungszeiten 
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Befehl 

Zeit 

in ms 


ST-BASIC 

GW-BASIC 

(Leerschleife 

0,87 

1.14) 

B = 0 

0.7 

1.2 

B=9 

0.9 

1.1 

B=9.9E-20 

0.7 

1.0 

B=X 

0.7 

1.2 

B=X + 9 

1.4 

2.0 

B=X-9 

1.4 

2.0 

B=XA9 

1.4 

2.0 

B=X/9 

1.4 

2.0 

B=X/Y 

1.2 

2.0 

B=SIN(Y) 

1.5 

19.4 

B = COS(Y) 

1.5 

24.3 

B = TAN(Y) 

2.2 

41.0 

B = ATN(Y) 

5.9 

5.4 

B = LOG(Y) 

1.6 

7.0 

B = LOG10(Y) 

2.4 

2.6 

B=SQR(Y) 

1.2 

2.6 

B=Y 2 

3.0 

4.1 

B=EXP(Y) 

1.7 

5.0 

B=SGN(Y) 

1.3 

1.7 

B=PEEK(Y) 

1.5 

2.3 

SWAP X,Y 

0.9 

0.7 

IF X> Y THEN 6 

1.0 

2.1 

IF X< Y THEN 6 

1.3 

2.1 

REM ABCDEFGHIJ 

0.2 

0.6 

GOTO 6 

0.4 

0.4 

GOSUB 9 

0.8 

0.9 

GOSUB programm 

0.7 


CLEARW/CLS 

600.0 

270.0 

o. Fußzeile 


120.0 

E$ = A$ 

1.4 

0.7 

E$ = B$ 

0.8 

0.6 

E$ = A+B 

4.6 

1.8 

E= RIGHT$(A$,9) 

2.1 

2.1 

ES = MID$( A$,5,3) 

2.6 

2.5 

X = INSTR(1 , A$,”9” 

2.4 

3.1 


(Anm.: a$ = ” 1234567890”, b$ = "1” 

Tabelle 2 


Zeit in min. 


PRINT A 

3:35 

0:42 

PRINT A, 

1:20 

0:37 

PRINT A; 

0:35 

0:19 

GOTOXY 1,1:? A 

0:24 


LOCATE 1,1:? A 


0:22 


Tabelle 3 





ATARI ST 

PC 10 

Prozessor 

Arbeitsweise: 

68 000 

8 086 

extern 

16 Bit 

8 Bit 

intern 

32 Bit 

16 Bit 

Taktfrequenz 

8 MHz 

4,77 MHz 

Tabelle 4 

Daten der CPUs 


Bei der Stringverarbeitung liegen die 
Zeiten beider Rechner im gleichen Be- 
rich. Allerdings hat das GW-Basic 
auch hier einen Vorsprung. 

Anhand eines kleinen Programms läßt 
sich nun zeigen, daß die so ermittelten 
Werte tatsächlich eine Auswirkung 
auf die Programmablaufgeschwindig- 
keit haben. Dazu wird ein Primzah- 
lenprogramm verwendet mit dem die 
Primzahlen bis zum Wert 1000 be- 
rechnet werden. Das ST-Basic benötig- 
te dafür 18 Sekunden, das GW-Basic 
immerhin 30 Sekunden. Würde man 
allerdings die Werte auch noch auf 


dem Bildschirm ausgeben wollen, 
dann würde sich das Verhältnis zugun- 
sten des GW-Basic verschieben. 

Zusammenfassend läßt sich sagen, daß 
das ST-Basic einen ausgewogenen Ein- 
druck macht. Die Ausführungszeit 
liegt bei fast allen Befehlen in der glei- 
chen Größenordnung. Es übertrifft 
damit das GW-Basic in fast allen Berei- 
chen. Damit könnte man nun zufrie- 
den sein, doch wenn man sich die 
Daten der verwendeten CPUs (Tabelle 
4) ansieht ist man doch ein wenig ent- 
täuscht. Der ATARI ST ist mit dem 
68 000-Prozessor ausgerüstet. Dieser 


Prozessor kann extern 16 Bit und in- 
tern 32 Bit verarbeiten und ist zudem 
noch mit 8 MHz getaktet. Der PC 10 
hat dagegen mit dem 8086-Prozessor 
nur 8 bzw. 16 Bit zur Verfügung und 
ist auch nur mit 4,77 MHz getaktet. 
Nimmt man diese Daten zur Bewer- 
tung hinzu, so muß man feststellen, 
daß das ST-Basic die Fähigkeiten der 
schnellen CPU nicht ausreichend 
nutzt. Besonders bei der Stringbehand- 
lung und dem ’Bildschirmrollen’ ist 
der Basic-Interpreter einfach zu lang- 
sam. Wie auch bei der Genauigkeit 
wäre deshalb ein überarbeitetes Basic 
wünschenswert. 

(MN) 


CompWare Robert Bunsen Str. 8, 6084 Gernsheim Tel. 06258/5 16 16 CompWare 
CompWare Ernst Ludwig Str. 7, 6840 Lampertheim Tel. 0 62 06/5 48 88 CompWare 

3 1/2” Fuji MF 1 DD 10 St. 50 St. 100 St. >100 St. Orion Farbmonitor CCM 14 mit Kabel an Atari 520/260 775,— 

7,90 7,20 6,90 auf Anfrage Panasonic Drucker KX-P1091, 120 z/sec, diverse Schriftarten 1 075, — 

Panasonic Drucker KX-P1092, 180 z/sec, diverse Schriftarten 1375,- 

> > > > Wir tun alles damit Sie nicht bei der Konkurrenz kaufen < < < < 
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Softwaretest 



ST 

Pascal 

Compiler 

von CCD 

ST Pascal wird komplett auf einer Dis- 
kette und mit einem 45 Seiten ’dicken’ 
Handbuch geliefert, das dem Kunden 
auch gleich auf den ersten Seiten klar- 
macht, für welchen Kundenkreis es 
konzipiert ist. Der Pascal-Neuling soll- 
te gar nicht erst versuchen, sich da hin- 
durch zu kämpfen. Der Kauf eines 
ordentlichen Pascal-Lehrbuchs ist hier 
nicht zu umgehen. 

Der Pascal Compiler ist mit einem 
Kopierschutz versehen. Es läßt sich 
zwar ein Backup erstellen welches 
aber nur in Verbindung mit der Origi- 
naldiskette lauffähig ist. Ein solches 
Backup stellt eine ausreichende Sicher- 
heit dar und ist als eine akzeptable Lö- 
sung eines Kopierschutzes anzusehen. 

Für den durchschnittlichen Benutzer 
des Atari ST, der nur über ein Disket- 
tenlaufwerk verfügt, kommt nun der 
nächste Arbeitsschritt vor der eigentli- 
chen Anwendung des Pascal-Systems: 
Man mache aus der Originaldiskette 
eine Compiler- und eine Linkerdisket- 
te. Dies ist zum Glück nur einmal 
vonnöten und bleibt dem Besitzer ei- 
nes zweiten Laufwerkes erspart. 

Der Editor 

Wenn dies alles vollbracht ist, kann es 
wirklich losgehen: Man legt die 
Compiler-Disk ein und lädt den vor- 
handenen Editor. Dessen Funktionen 
sind für die ordentliche Erstellung ei- 


nes Pascal-Source Textes vollkommen 
ausreichend, wobei der automatische 
Tabulator zur übersichtlichen Gestal- 
tung des Quelltextes sehr hilfreich ist. 
Nach der vollständigen Eingabe des 
Pascalprogrammes wird der Editor 
verlassen. Das editierte Programm 
wird als Datei abgelegt. 

Der Compiler 

Nun kann durch ein Batch-File der 
Compiler aufgerufen werden, der bei 
fehlerfreiem Quelltext eine 
Objektkode-Datei erzeugt. Der Com- 
piler kann aber auch unter TOS An- 
wendung direkt aufgerufen werden. 

Es sind auch einige nützliche Com- 
pileroptionen verfügbar, die die Pro- 
grammerstellung vereinfachen. 

Es können aber auch Compileranwei- 
sungen direkt im Quelltext eingebettet 
sein. Sie werden durch ein nachgestell- 
tes + oder - an- bzw. ausgeschaltet. 

Es existiert eine Auflistanweisung, die 
den Quellcode samt relativen Adres- 
sen auf dem Bildschirm ausgibt. 

Eine Einfügeanweisung, die es erlaubt, 
fremde Dateien in den Quellcode ein- 
zufügen. Eine Modulanweisung, die es 
ermöglicht Programmteile modular zu 
compilieren. 

Eine Debuganweisung sowie einige an- 
dere brauchbare Anweisungen, wie et- 
wa Kontrolle auf Bereichsüberschrei- 


tung. Probleme gab es jedoch dabei, 
den Quellcode samt Compilerfehler- 
meldungen auf ein bestimmtes Ausga- 
begerät zu lenken. Der Compiler zeigt 
durch die LIST-Option zwar jede bear- 
beitete Zeile samt eventuell vorhande- 
nen Fehlermeldungen auf dem Moni- 
tor, jedoch war es nicht möglich, in 
der kurzen Zeit, in der mit dem Com- 
piler gearbeitet wurde, diese Ausgabe 
an einen Drucker oder eine Datei um- 
zuleiten. 

Dies ist vor allem bei der Erstellung 
komplexerer Programme ein großes 
Handicap, da der compilierte Text 
doch recht schnell über den Bild- 
schirm huscht und die darin enthalte- 
nen Fehlermeldungen für den norma- 
len Menschen nicht gerade ersichtlich 
werden. 

Der Compiler erzeugt ca. 150 ver- 
schiedene Fehlermeldungen in engli- 
schem Klartext, was heute eigentlich 
schon Standard ist. In ST Pascal ist das 
komplette Standardpascal nach Wirth 
und Jensen implementiert, das um die 
OTHERWISE- und LOOP-Anweisung 
erweitert wurde. 

Des weiteren unterstützt es Random- 
Access Dateien, erleichtert die Hand- 
habung von Dateien im allgemeinen 
und ermöglicht mit Einschränkungen 
die Darstellung doppelt langer Inte- 
gers. GOTOs sind nur innerhalb von 
Blöcken erlaubt. 
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Mit CHAIN kann von Pascal aus in 
ein fremdes Programm übergewech- 
selt werden und mit EXTERN AL 
können externe Funktionen oder Pro- 
zeduren aufgerufen werden. Außer- 
dem können Funktionen und 
Prozeduren als Parameter übergeben 
werden, was bei den meisten anderen 
heute verfügbaren Pascalsystemen 
nicht möglich ist. Zusätzlich wurde 
fast das gesamte UCSD-Pascal imple- 
mentiert, was vor allem bei der String- 
verarbeitung von unschätzbarem 
Vorteil ist. Es fehlen die UNIT- 
Anweisungen ganz, was jedoch abso- 
lut nicht von Nachteil ist, da sie sowie- 
so nur bei sehr wenigen Systemen 
Vorkommen und die bei ST Pascal 
mögliche modulare Compilierung die- 
se Anweisungen voll und ganz ersetzt. 

Ein großer Vorteil von ST Pascal ist 
die Möglichkeit Prozeduren und Funk- 
tionen, die in Assembler oder C ge- 
schrieben sind, zu integrieren. 

Um etwa die VDI-Funktion ’set fill 
color index’, also setzen der Füllfarbe, 
aufzurufen, ist in ST Pascal folgende 
Befehlsfolge nötig: PROCEDURE vsf 
color(handle, color index: integer); C; 

Um AES-Routinen aufzurufen, wird 
genauso verfahren. Weiterhin ist es 
möglich, GEMDOS- oder BIOS-Funk- 
tionen direkt von ST Pascal aus zu 
programmieren. 

Um den Rechner z. B. in den Warm- 
start zu versetzen, genügt die Be- 
fehlsfolge: 

FUNCTION warm; 
GEMDOS(O); 

ST Pascal ist so konzipiert, das auf 
dem Atari ST erstellten Programme 
auf jeden 68 000-Rechner unter GEM 
lauffähig sind. Mit diesen Fähigkeiten 
ausgestattet, ist es eine wahre Freude, 
mit ST Pascal zu programmieren. 

Die Compilergeschwindigkeit des ST 
Pascal liegt bei etwa 260 Zeilen pro 
minute, was zwar nicht sehr beein- 
druckend ist, aber sich beim Arbeiten 
als erträglich erwies. 

Der von dem Compiler erzeugte Ob- 
jektcode hat im allgemeinen eine bis 
zu doppelte Größe wie der entspre- 
chende Sourcekode. 


Der Linker 

Nun muß bei nur einem Laufwerk die 
Objektdatei von der Compilerdiskette 
auf die Linkerdiskette kopiert werden. 
Danach wird mit Ti’ oder ’LGMl’ der 
Linker aktiviert. 

Bei zwei Laufwerken wird mit dem 
Batch-Aufruf ’CL2’ bzw. ’CLGM2’ 
das Quellprogramm in einem Durch- 
gang compiliert und gelinkt 

Der Linker, der übrigens von Digital 
Research stammt, bindet die benötig- 
ten Objektmodule und GEM- 
Anwendungen aus den mitgelieferten 
VDI- und AES-Bibliotheken in das 
Objektprogramm ein und generiert 
ein ausführbares Programm. Das Lin- 
ken kann dabei ein vielfaches der 
Compilierzeit erreichen. 

Zusätzlich werden noch zwei Pascal- 
Programme im Sourcetext mitgelie- 
fert, an denen sich der Anwender mit 
compilieren und linken vertraut ma- 
chen kann. 

Vor allem das Programm CDOS de- 
monstriert sehr schön die Anwendung 
von GEM-Routinen unter Pascal. 

CDOS erzeugt eine Grafik auf dem 
Bildschirm, die zwar weder besonders 
schön noch besonders schnell ist, aber 
die grundlegenden Möglichkeiten von 
ST Pascal ersichtlich macht. 

Die Compilierzeit von CDOS betrug 
ca. 57 Sekunden und das Linken benö- 


tigte nochmal ca. 2 Minuten und 49 
Sekunden. 

Das Quellprogramm hatte einen Um- 
fang von 252 Zeilen und benötigte ei- 
nen Speicherplatz von 5 673 Bytes. 

Als prg.-File belegte es 9 128 Bytes an 
Speicher und ist direkt, also ohne ir- 
gend ein ’run-time-module’, Interpre- 
ter oder ähnlichem, ausführbar. 

Einige kleine Benchmarks ergaben ei- 
nen Geschwindigkeitsvorteil gegen- 
über dem ST Basic von nur dem vier- 
bis fünffachen und bei dem Speicher- 
bedarf verlangte ST Pascal gleich einen 
bis zu 40 mal größeren Bereich. 

Wobei ST Pascal eine sehr viel höhere 
Rechengenauigkeit angerechnet wer- 
den muß und kein kodeverkürzender 
Interpreter benötigt wird. Von CCD 
ist zu dem Problem der Geschwindig- 
keit und des recht großen Speicher- 
platzbedarfs schon eine Lösung 
angekündigt: Der Compiler soll dem- 
nächst um die Option ’Optimize’ er- 
weitert werden, wordurch effizienterer 
Objektkode erzeugt werden soll. 

Ferner ist ein besseres Handbuch ange- 
kündigt, das näher auf die Eigenschaf- 
ten von ST Pascal auf dem Atari ST 
eingehen wird. Das vorliegende Hand- 
buch bezieht sich noch im wesentli- 
chen auf das CP/M-68K-Pascal, wo- 
rauf das ST Pascal im großen ganzen 
aufbaut. 
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Für dieses neue Handbuch liegt dem 
Programmpaket ein Gutschein bei, bei 
dessen Einsendung das neue Hand- 
buch zugeschickt wird. Bei der Fertig- 
stellung dieses Berichts war jedoch 
noch nichts eingetroffen. 

Fazit 

Alles in allem ist ST Pascal für den an- 
spruchsvollen Pascalanwender ein 
mächtiges Programmierwerkzeug. Die 
Fähigkeiten des Atari ST lassen sich 
damit fast vollständig ausschöpfen. 

Es besteht zwar eine gewisse Anwen- 
derunfreundlichkeit vor allem bei Be- 
nutzung von einem einzelnen 
Laufwerk. (Es kann einen an den Rand 
des Wahnsinns bringen, festzustellen, 
daß nach Überwindung der Compi- 
lierphase, die schon nervenzerfetzend 
genug ist, und nach kopieren des Ob- 
jektprogrammes und anschließendem 
Linken immer noch etwas nicht 
stimmt.) 


Auch die permanente Zerstörungsge- 
fahr, die bei der Benutzung der Origi- 
naldiskette immer bestehen bleibt, 
hinterläßt keinen guten Eindruck. 

Folgende V erbesserungsvorschläge 

sind angebracht: Die Entwicklung ei- 
nes zusätzlichen Speicher-Residenten 
ST Pascal-Compilers zur Austestung 
der Programme und eine Grafik- 
Bibliothek, da die GEM-Programmie- 
rung bestimmt nicht jedem liegt und 
doch recht kompliziert ist. 

Auch eine Version für den Besitzer ei- 
nes doppelseitigen Laufwerkes, da dort 
auch das häufige Diskettenwechseln 
entfallen würde. 

In seiner Grundstruktur ist der ST 
Pascal-Compiler zur Zeit die beste Lö- 
sung, um anspruchsvolle Software un- 
ter Pascal auf dem Atari ST zu 
entwickeln. 

Einige Einschränkungen werden wohl 


hoffentlich bei der nächsten Version 
beseitigt sein. 

Vor allem für den Besitzer von zwei 
Laufwerken ist ST Pascal zu seinem 
gegenwärtigen Preis von 249 DM 
wirklich unübertroffen. Abzuwarten 
bleibt jedoch, wie gut Borland darauf 
mit einer auf den ST angepaßten Ver- 
sion von Turbo-Pascal kontern kann... 

Jörg Mainusch 
Wolfsgartenstr. 70 
6070 Langen 
Tel. 0 6103/2 7166 


3 1 / 2 “ + 5 Va “-Floppy-Disk für ATARI 520/260 


720 KB — Einzelstation als Zweitlaufwerk, anschlußfertig (1x3 V2“) 548,— DM 

dito. (1x5 V4“) 568,— DM 

720 KB — Einzelstation als Erstlaufwerk, wie oben, aber mit eingeb. Netzteil 

Aufpreis 50,— DM 

1,4 MB — Doppelstation, anschußfertig, mit Netzteil (2x3 V2“) 948,— DM 

dito. (2x5 Va“) 988,— DM 

1,4 MB — Doppelstation, anschlußfertig mit Netzteil (1x5 Va“ + 1x3 V2“) 968,— DM 

ACHTUNG: 5 Va “-Laufwerke auch 40/80 Spuren umschaltbar erhältlich 

(z.B. für Datentransfer IBM/ATARI), Aufpreis pro Laufwerk 105, — DM 


Monitor-Adapterkabel zum Anschluß handelsüblicher Monitore mit BAS-Eingang an den ATARI 
520 + /260 (ATARI-kompartibler Stecker / 1 ,5 m Kabel / CHINCH-Stecker ) 

Bausatz = 39, — DM, fertig = 48, — DM 


Computer + Software ■ Ulrich Schroeter * Scheider Str. 12 • 5630 Remscheid 1 - © 02191 / 210 34 


16 ST Computer, Nr. 2 



SUPERCODE: Ein Denkspiel 



PROGRAMMBESCHREIBUNG 

Bei diesem Denkspiel geht es darum ei- 
nen Geheimcode, den der Computer 
erzeugt, zu erraten. Jeder Versuch 
wird dabei bewertet, das heißt, daß an- 
gegeben wird wieviel Zahlen mit de- 
nen des Geheimcodes in Wert und 
Stelle übereinstimmen. Das Programm 
malt dann die entsprechende Anzahl 
von Kästchen 'SCHWARZ’ aus. Wenn 
die Stelle der Zahl mit der des Geheim- 
codes nicht übereinstimmt, die Zahl 
aber an einer anderen Stelle vorhanden 
ist, so wird dies mit ’WEISSEN’ Käst- 
chen angezeigt. Wenn Sie Ihren Code 
eingegeben haben, fragt das Pro- 
gramm, ob Sie diesen Code nehmen 
wollen. Sollten Sie diese Frage mit N 
bzw. n beantworten, dann bleibt zwar 
der ’alte’ Code auf dem Bildschirm ste- 
hen, doch sie können bzw. müssen 
nun erneut einen Code eintippen. Für 
das Erraten des Geheimcodes haben 
Sie zehn Versuche zur Verfügung, 
wenn Sie den Code bis dahin erraten 
haben, bekommen Sie dafür einen 
Tusch gespielt. Sollten Sie den Code 
mit dem zehnten Versuch nicht erra- 
ten haben hört das Programm auf und 


gibt einen Text und den Code aus. Au- 
ßerdem können Sie die Runde jeder- 
zeit abbrechen wenn Sie keine Lust 
mehr haben. Drücken Sie dafür ein- 
fach die Taste ’E’. Die Anzahl der Ver- 
suche mag zwar gering erscheinen, 
doch bei genauer Analyse der Schwär- 
zen’ und der ’Weißen’ erhält man ge- 
nug Zusatzinformationen, um den 
Code schnell zu bestimmen. 

Beim Starten des Programms (wobei 
man immer im ’EDIT’-Modus sein 
sollte!), wird zuerst nach der Anzahl 
der Zahlen des Geheimcodes gefragt. 
Man kann hier bis zu sechs Zahlen 
wählen. Damit läßt sich bei einem ent- 
sprechenden Zahlenbereich ein hoher 
Schwierigkeitsbereich erreichen (über 
300000 Möglichkeiten). Als nächstes 
erwartet das Programm die Eingabe 
des Bereichs, der von 1 bis 9 gewählt 
werden kann. Bei beiden Eingaben 
kann man durch Drücken der 
< Return > -Taste die Standardwerte 
einstellen. Nachdem die Anzahl der 
Möglichkeiten angezeigt wurde, kön- 
nen Sie Ihren Zahlencode eingeben. 
Die einzelnen Ziffern werden, um sie 
besser hervorzuheben, als ’Segmentzif- 


fern’ ausgegeben, wie sie auch bei Ta- 
schenrechnern und Digitaluhren ver- 
wendet werden. 

Zum Einschalten der verschiedenen, 
im Normalbasic nicht ansprechbaren 
Schriftarten, werden die GEM-VDI 
Routinen aufgerufen. Nähere Erklä- 
rungen dazu finden Sie im GEM- 
Artikel in diesem Heft. 

Beim Eintippen des Programms muß 
auf die Zeilennummern keine Rück- 
sicht genommen werden, da das Pro- 
gramm nur Sprünge zu ’Labels’ enthält. 


VARIABLENLISTE 

CODES Code 

Z() Code (indizierte Variable) 

Zl() Code für Vergleich 

V() Versuch 

N Anzahl der Zahlen 

Z Bereich der Ziffern 

E$ allgemeine Eingabevariable 

A,B allgemeine Schleifenvariablen 

VN Anzahl der Versuche 

S Anzahl der 'Schwarzen’ 

W Anzahl der 'Weißen' 

X,Y Variablen für LINE und FILL 
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HAUPTROUTINEN 


150 


160 


170 


180 


182- 

188 

190 


194 


195 


200- 

270 

280 


290- 

330 

340 


360- 

720 

370- 

380 

410- 

570 

460 


500 


530- 

570 

590- 

710 

600 


620 


630 


650 


690 


740- 

770 

790- 

820 

800 


840- 

870 

880 


900- 

1040 

905 


930 


950 


960 


970- 

1000 


1060-1110 

1070-1080 

1090-1100 

1130-1180 

1140-1150 

1160-1180 

1200-1310 

1210 

1220-1240 

1250 

1260-1290 

1400-1500 

1510-1630 


Zufallsgenerator setzen 

Dimensionierung der Felder 

Fenster vorbereiten 

Große Fettschrift setzen 

Zeichnen von zwei Köpfen 

Große, kursive und fette Schrift setzen 

Kleinschrift setzen 

Variablen für Standardspiel setzen 

Eingabe und Kontrolle von Anzahl und Bereich 

Anzahl der Möglichkeiten ausgeben 

Zufallscode generieren 

Aufruf der Zeichenroutine 

Hauptprogramm 

Anzahl der Versuche erhöhen und kontrollieren 

Eingabe des Codes und Kontrolle 

LINE-Befehl für Markierung der Eingabe 

Zahlencodes umwandeln in Code für Segmentziffern 

Abfrage ob Eingabe in Ordnung 

Auswertung des eingegebenen Codes 

Anzahl der Schwarzen’ und 'Weißen' zurücksetzen 

Geheimcode in das Feld Zl() übertragen 

Anzahl der Schwärzen’ überprüfen 

Überprüfen ob gewonnen 

Anzahl der 'Weißen' überprüfen 

Programmteil für 'GEWONNEN' 

Programmteil für ’GENUG’ 

Lösungscode ausgeben 
Programmteil für 'AUFGEGEBEN’ 

Programmende 

Unterprogramm zum Zeichnen der Vierecke 

Standardschrift setzen 

y-Koordinate berechnen 

Lücke zwischen 'Schwarzen' und 'Weißen' 

y-Koordinate berechnen 

LINE-Befehl für Viereck 

Unterprogramm zum Ausfüllen der 'Schwarzen’ 

x- und y-Koordinaten berechnen 

Farbe setzen und ausfüllen 

Unterprogramm zum Ausfüllen der 'Weißen’ 

x- und y-Koordinaten berechnen 

COLOR setzen und ausfüllen 

Unterprogramm 'Tusch' für 'Gewonnen' 

Ausschalten der drei Tonkanäle 
Akkord mit drei Tonkanälen setzen 
Tonkanäle einschalten und Ton halten 
Zweiten Akkord setzen und spielen 

Unterprogramm zum Setzen von Schriftgröße und Schriftart 
GEM-Routinen 107,106 

Unterprogramm zur maßstabsgerechten Textausgabe 
GEM-Routine 8 
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List of \ CODE99 . BAS 


100 

110 

120 

130 

140 

150 

160 

170 

180 

182 

184 

186 

188 

190 

192 

194 

195 
200 
2 10 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


* 


SUPER-CODE 
by mark 


TEXTAUSGABE 

TEXTAUSGABE 

TEXTAUSGABE 

TEXTAUSGABE 


anfang : 

RANDOMIZE 0 
CLEAR: DIM Z< 10) ,V( 10) 

FULLW 2: CLEARW 2: CLOSEW 3 
GROESSE = 18: TYP = 1 : GOSUB SCHRIFTART 
TEXTS = CHR$ ( 28 ) +CHRS ( 29 ) : XP0S=20 : YP0S=60: GOSUB 
TEXTS =CHR$ ( 30) +CHR$ (31): XPQS=20 : YPOS=76 : GOSUB 
TEXT$=CHR$ ( 28 ) +CHR$ < 29 ) : XP0S=550 : YP0S = 60 : GOSUB 
TEXT$=CHR$(30)+CHR$(31 ) : XP0S=550 : YPOS=76 : GOSUB 
GROESSE = 20 : TYP = 5 : GOSUB SCHRIFTART 
TEXTS = " SUPERCODE" : XPOS = 2 35 : YP0S = 75 : GOSUB TEXTAUSGABE 
GROESSE = 9 : TYP = 0 : GOSUB SCHRIFTART 

N=4: Z=6: * Standard 

LI: GOTOXY 1,4: ?"WIEVIEL ZAHLEN (MAX. 6)“ 

?“ [STANDARD: 4] “J 

ES = INPUTS ( 1 ) : IF E$=CHR$(13) THEN ?N ELSE N=VAL(E$):?N 

IF N< 1 OR N>6 THEN GOTO LI 

L2 : GOTOXY 1,6: ? “WELCHER BEREICH (MAX. 9)“ 

?” [STANDARD: 61 "J 

ES = INPUTS ( 1 ) : IF E$=CHR$(13> THEN ?Z ELSE Z=VAL(E$):?Z 
IF Z<1 OR Z> 9 THEN GOTO L2 

L3 : GOTOXY 1,9: ? "Moegl ichke i ten : " ; INT(Z / 'N+0 . 5 ) 


’ code generieren 
FOR A= 1 TO N 
Z ( A ) = I NT ( RND( 1 >*Z)+1 
CODES = CODES +STR$ (Z( A ) ) 
NEXT A 

GOSUB einleitung 


hauptprogramm : 

VN= VN+ 1 

IF VN> 1 0 THEN GOTO genug 
GOTOXY 14,4+VN: ?VN 


codeeingabe : 

FOR A= 1 TO N 
GOTOXY 34,4+VN: ?“ 


e i ngabe : 

LINEF 272+17 *A, ( 5+VN )*17, 279+17 *A, ( 5+VN ) * 1 7 

ES = I NPUTS ( 1 ) : IF LEN(ES)<>1 THEN GOTO eingabe 

IF E$= “E” OR E$= "e “ THEN GOTO abbruch ELSE V(A)=VAL(E$> 

IF V(A) < 1 OR V( A ) >Z THEN GOTO eingabe 

GOTOXY 1 6+A, 4+VN : ? chr$ ( v (a ) + 1 6 ) 

NEXT A 


annahme : 

GOTOXY 34,4+VN: ?“J/N" 
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List of \ C0DE99 . BAS 

550 E$=INPUT$ ( 1 ) : IF E$=CHR$<13> THEN GOTO auswertung 

560 IF E$=" J" OR E$=" j " THEN GOTO auswertung 

570 IF E$= "N" OR E$=“n” THEN GOTO Codeeingabe ELSE GOTO annahme 

580 

590 auswertung : 

•600 S=0 : W=0 

610 FOR A= 1 TO N 
620 Z 1 (A)=Z( A) 

630 IF ZI (A>=V(A) THEN S=S+1: V(A)=0: Z1(A)=0: GOSÜB schwarz 
640 NEXT A 

650 IF S=N THEN GOTO gewonnen 

660 FOR A= 1 TO N 
670 IF V( A ) =0 THEN GOTO belegt 
680 FOR B= 1 TO N 

690 IF V(A)=Z1(B) THEN W=W+ 1 : Z 1 < B> =0 : V<A ) =0 : GOSÜB weiss:GOTO belegt 

700 NEXT B 
710 belegt : NEXT A 
720 GOTO hauptprogramm 
730 

740 gewonnen : 

750 GOTOXY 5,18: ?” DU HAST DIE LÖSUNG GEFUNDEN! 

760 GOSÜB tusch 

770 E$=INPUT$ ( 1 ) : GOTO anfang 

780 

790 genug : 

800 GOTOXY 1,12: ?“<"CODE$" )" 

810 GOTOXY 5,18: ?" Das war wohl nichts, SCHAD“chr$ ( 1 44)chr$ < 1 44) 

820 E$=INPUT$ ( 1 ) : GOTO anfang 

830 

840 abbruch : 

850 GOTOXY 1,12: ?“< “CODES" >" 

860 GOTOXY 5,18:?"WARUM HAST DU NACH" VN- 1 “VERSUCHEN AUFGEGEBEN ?“ 
870 E$=INPUT$< 1 ) : GOTO anfang 
880 end 

890 

900 e inle itung : 

905 GROESSE= 1 0 : TYP=0: GOSÜB SCHRIFTART 

910 GOTOXY 17,3: ?" EINGABE: AUSWERTUNG:“ 

920 FOR A= 1 TO 10 

930 Y = A* 1 7+73 

940 FOR B= 1 TO 2*N+1 

950 IF B=N+ 1 THEN GOTO luecke 

960 X=440-N*6+B* 1 2 

970 LINEF X, Y,X+10, Y 

980 LINEF X+10, Y,X+10, Y+10 

990 LINEF X+10, Y+10, X, Y+10 

1000 LINEF X, Y+10,X, Y 

1010 luecke : 

1020 NEXT B 
1030 NEXT A 
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List of \ CODE99 . BAS 


1040 

RETURN 



1050 

9 



schwarz : 



1060 

1070 

X=445-N*6+S*12 



1080 

Y =VN* 1 7 + 80 



1090 

C0L0R 1 , 1 , 1 , 1 , 1 



1 100 

FILL X,Y 



1 1 10 

RETURN 



1120 

9 



we i ss : 



1 130 

1140 

X=445-N*6+( ( W+N+ 1 ) * 1 2 ) 



1 150 

Y= VN* 1 7+80 



1160 

COLOR 1,1, 1,3,2 



1 170 

FILL X, Y 



1180 

RETURN 



1 190 

9 



tusch : 



1200 

12 10 

FOR N= 1 TO 3: WAVE 0 



1220 

SOUND 1,15,1,4,0 



1230 

SOUND 2,15,8,4,0 



1240 

SOUND 3,15,1,5,0 



1250 

WAVE 7: FOR A=0 TO 500: 

NEXT A: 

WAVE 

1260 

SOUND 1,15,6,4,0 



1270 

SOUND 2,15,1,5,0 



1280 

SOUND 3,15,6,5,0 



1290 

WAVE 7: FOR A=0 TO 1000: 

NEXT A 


1300 

NEXT N: WAVE 0 



1310 

RETURN 



1400 

sehr i f tart : 



1410 

* --> groesse ; typ 



1420 

POKE CONTRL , 1 07 



1430 

POKE CONTRL+2 , 0 



1440 

POKE CONTRL+6 , 1 



1450 

POKE INTIN, GROESSE 



1460 

VDISYS 



1470 

POKE CONTRL, 106 



1480 

POKE INTIN, TYP 



1490 

VDISYS 



1500 

RETURN 



1510 

textausgabe : 



1520 

' TEXT$ 



15 30 

FOR 1=0 TO LEN(TEXT$ )- 1 



1540 

POKE INTIN+i*2, ASC<MID$ (TEXT$ , i + 1 

»D) 

1550 

NEXT 



1560 

POKE INTIN+( i ) *2 , 0 



1570 

POKE CONTRL, 8 



1580 

POKE CONTRL+2, 1 



1590 

POKE CONTRL+6, LEN <TEXT$)+1 


1600 

POKE PTSIN , XPOS 



1610 

poke PTS IN+2 , YPOS 



1620 

VDISYS 



1630 

RETURN 
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Monitor „scharf“ gemacht 



Bild 1: Der monochrome Monitor SM 124 


Der ATARI Monitor SM 124 ist in 
der Bildqualität fast jedem anderen, ge- 
wöhnlichen Monitor weit überlegen. 
Diese Tatsache ist jedem bekannt, der 
einmal mit ihm „gearbeitet“ hat. Doch 
leider hat so mancher dieser Monitore, 
die übrigens von der Firma GOLD- 
STAR für ATARI hergestellt werden, 
seine Schattenseiten. Zumindest 
scheint eine Endkontrolle bzw. der 
Abgleich der Geräte öfters nicht mit 
der nötigen Sorgfalt ausgeführt zu 
werden. Wie wir selber, und auch be- 
reits von einigen Lesern, erfahren ha- 
ben, sind folgende Merkmale typisch 
für einen ungenauen Abgleich der Mo- 
nitore. Häufig ist eine gewisse Un- 
schärfe des Bildes in der oberen 
Bildschirmzeile (Desktop) zu er- 
kennen, außerdem scheint eine Auf- 
hellung (im Extremfall sogar ein 
dünner heller Strich) am linken oder 
rechten Bildschirmrand nicht selten zu 
sein. Ein schiefes oder verzerrtes Bild 
ist dagegen selten vorzufinden. Glück- 
licherweise bietet der SM 124 im In- 
nern, auf seiner modern konzipierten 
Platine, alle notwendigen Einstellre- 
gler, um eventuelle „Fehler“ zu korri- 
gieren. 


Eine andere Tatsache, die uns von An- 
fang an störte, ist das zu kleine Bild 
oder anders gesagt, der zu große schwar- 
ze Rahmen. Obwohl in der „Bedie- 
nungsanleitung“ des Monitors die 
Bildschirmdiagonale mit 12-inch, das 
sind über 30 cm, angegeben wird (die- 
ser Wert ist auch zweifellos richtig), 
werden vom Bild nur ca. 24 cm Bild- 


diagonale genutzt. Wie man nun seine 
Bildfläche um ca. 25 %! vergrößern 
kann und was es dabei zu beachten 
gibt, ist ein paar Zeilen später genau 
erklärt. 

Bevor Sie nun gleich zum Schrauben- 
dreher greifen, wollen wir nicht ver- 
schweigen, daß durch das Offnen des 
Gerätes eine Garantie eventuell verfal- 
len kann. Außerdem ist eine korrekte 
Justierung nur während des Betriebes 
möglich, so daß die Gefahr eines 
Stromschlages oder Kurzschlusses bei 
unsachgemäßen Arbeiten gegeben ist. 
An dieser Stelle sei auch bemerkt, daß 
nicht jede Störung des Bildes durch 
den Monitor verursacht wird. So sind 
z. B. ein „verschwimmen“ des Bildes 
für eine gewisse Zeit oder einzelne 
Punkte auf dem Bild typische Fehler 
des Rechners. Bei Unklarheiten nicht 
gleich den Monitor aufschrauben und 
„wild“ an allen Reglern drehen, son- 
dern erst einen zweiten Monitor aus- 
leihen (oder zum Fachhändler gehen) 
und prüfen, ob der Fehler immer noch 
auftritt, falls ja, ist mit großer Wahr- 
scheinlichkeit Ihr Rechner defekt. 



Bild 2: Das Innenleben des Monitors 
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Das Öffnen des Monitors 

Vor dem Öffnen ist der Monitor un- 
bedingt vom Netz zu trennen und der 







Monitorstecker vom Rechner abzuzie- 
hen. Nun ist es am Besten, ihn mit der 
Bildröhre (also mit der Front) auf die 
Oberschenkel zu legen, so daß man 
bequem die fünf Schrauben auf der 
Rückwand lösen kann. Zwei dieser 
Kreuzschlitzschrauben befinden sich 
am oberen Rand, eine weitere direkt 
über der Netzleitung und nochmals 
zwei, etwas längere Schrauben, am Ge- 
häuseboden. Das gesamte Rückteil des 
Gehäuses kann jetzt nach hinten abge- 
zogen werden. Doch Vorsicht, da sich 
der Lautsprecher im Rückteil befindet 
müssen noch dessen zwei Leitungen, 
durch bloßes ziehen, vom Platinen- 
stecker gelöst werden. Der Monitor- 
und der Netzstecker passen gerade 
durch die zwei rechteckigen Öffnun- 
gen an der Gehäuserückwand, so daß 
das Rückteil vollständig abgenommen 
werden kann. Der freigelegte Monitor 
wird nun, durch anpacken an der 
Frontseite, auf einen Tisch gestellt. 

Das Werkzeug 

Wie überall im Leben, so geht auch 
hier mit dem richtigen Werkzeug alles 
ganz einfach. Am Besten ist ein soge- 
nanntes Abgleichbesteck geeignet. 
Dies sind meist drei oder vier Schrau- 
bendreher bzw. Imbusschlüssel ver- 
schiedener Größen aus Plastik in 
einem Set. Ein solches Abgleichset 
sollte man im guten Elektronikfach- 
handel erwerben können. Da der Elek- 
tronenstrahl einer Bildröhre durch eih 
Magnetfeld, welches durch Spulen auf 
dem Röhrenhals erzeugt wird, gesteu- 
ert bzw. abgelenkt wird, genügt schon 
ein Metallschraubendreher in der Nä- 
he der Bildröhre, um das Bild zu ver- 
zerren. Ein weiterer Vorteil von 
Plastik-Werkzeug ist die Tatsache, daß 
man die Ferrit-Kerne von Spulen (sie- 
he H. Size und H. Line) problemlos 
verdrehen kann. Ein Metallschrauben- 
dreher verändert schon bei Berührung 
des Ferrit-Kernes die Induktivität (den 
Wert) der Spule, so daß das Bild verän- 
dert wird, ohne das der Kern der Spule 
verstellt wurde. Selbstverständlich 
geht das Bild in seine normale „Dar- 
stellung“ zurück, sobald der Schrau- 
bendreher wieder entfernt wird. 
Außerdem verhindert Plastik- Werk- 
zeug die Gefahr eines versehentlichen 
Kurzschlusses oder eines Stromschla- 
ges bei Berührung spannungsführen- 
der Leitungen, denn immerhin ent- 


List of MESTBILD.BAS 

10 ’ TESTBILD U1.0 

20 clear 

30 clearw 2: Fullw 2 

40 color 1 , 1 , 1 , 3, 3 

50 circle 30B, 172,150 

50 Fi 1 1 300,172 

70 x=5 :y= 5 

00 color 1,1, 1,2,3 

00 gosub rechteck 

100 x=5 :y=10O 

110 color 1,1, 1,3,3 

120 gosub rechteck 

130 x-570 : y=5 

140 color 1,1, 1,4,3 

150 gosub rechteck 

160 x=570 : y =100 

170 color 1,1, 1,5,3 

1B0 gosub rechteck 

130 color 1,1, 1,5,2 

200 xl = U5 : y 1 = B0 

210 gosub kreis 

220 color 1,1, 1,7,2 

230 xl-115 : y 1 =204 

240 gosub kreis 

250 color 1,1, 1,0,2 

260 xl-501 : y 1=204 

270 gosub kreis 

200 color 1 , 1 , 1 , 0 , 2 

200 xl=501 : y 1=50 

300 gosub kreis 

310 art=4: gosub schriFt 

320 gotoxy 10 , 1 : print "Testbild” 

330 gotoxy 23 , 1 : print "Testbild” 

340 gotoxy 10 ,10 : print "Testbild” 

350 gotoxy 23 , 10 : print "Testbild" 

350 color 1,1,1,12,3 

370 Fi 1 1 1,100 

300 a=inp (2) 

305 art=l: gosub schriFt 

300 end 

400 rechteck : 

410 lineF x,y,x+40,y 

420 lineF x,y,x,y+160 

430 lineF x+40 , y , x+40 , y + 160 

440 lineF x , y + 150 , x+40 , y+160 

450 Fi 1 1 x+10 , y+BO 

450 return 

470 kreis : 

400 circle xl,yl,50 

400 Fill xl , y 1 

500 return 

510 schriFt : 

520 poke contrl,32 

530 poke contr 1+2,0 

540 poke intin,art 

550 vdisys 

550 return 
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Bild 3: „Ergebnis“ des Basicprogrammes Testbild 


stehen im Monitor Spannungen über 
12 000 Volt! Wer kein Abgleichset zur 
Verfügung hat, der kann mit den oben 
erwähnten Schwierigkeiten, auch ei- 
nen gewöhnlichen kleinen Schrauben- 
dreher verwenden. Allerdings sollte 
dieser einen möglichst langen isolier- 
ten Stiel haben, um auch etwas „ver- 
steckt“ sitzende Einstellregler erreichen 
zu können. 

Bevor Sie den Monitor abgleichen, 
sollten Sie das kleine Basic Testpro- 
gramm eingeben (siehe Foto vom 
Testbild), damit auch nach dem Ab- 
gleich ein CIRCLE-Befehl einen Kreis 
zeichnet und keine schiefe Ellipse. Ha- 
ben Sie das Programm eingetippt, 
dann starten sie es mit RUN und las- 
sen das Testbild während der gesamten 
Abgleicharbeiten auf dem Monitor ste- 
hen. Somit haben Sie ständig eine opti- 
sche Kontrolle über die Wirkung der 
einzelnen Regler. Sie sollten sich über 
Ihr Problem im klaren sein und nur 
die Trimmpotis oder Spulenkerne (sie- 
he folgende Tabelle) verstellen, die für 
Sie in Frage kommen. Am sichersten 
ist es, sich alle Einstellungen zu mer- 
ken oder aufzuschreiben, dann kann 
man nichts schlechter machen als es 
war. 


Vergrößern des Bildes 

Um das Bild zu vergrößern ist es erfor- 
derlich den Spulenkern der H.SIZE 
Spule im Uhrzeigersinn reinzudrehen 
(Imbus 3 mm oder notfalls entspre- 
chender Schraubendreher), ebenfalls 
ist das Poti V.SIZE im Uhrzeigersinn 
zu verstellen. Damit ein Quadrat nicht 
zum Rechteck wird, müssen beide 
Regler im gleichen Verhältnis verdreht 
werden. Eine optische Kontrolle dafür 


bietet das Testbild, genauer funktio- 
niert es jedoch durch Ausmessen der 
Bild-Seitenlängen mit Hilfe eines Roll- 
Zentimetermaßes. Bei genauem Ab- 
gleich muß der Quotient aus horizon- 
taler- und vertikaler Seitenlänge 1,6 er- 
geben. Dies bedeutet in der Praxis, hat 
man das Bild in horizontaler Richtung 
(X-Richtung) auf 23 cm vergrößert, so 
muß nun das Bild in vertikaler Rich- 
tung (Y-Richtung) auf ca. 14,4 cm ver- 
größert werden (23/14,4 = 1,6). 


Tabelle der verschiedenen Einstellmöglichkeiten 


Bezeichnung 

Bauteil 

Wirkung 

VR 703 FOCUS 

Poti 

Schärfe im Bildmittelpunkt 
und im Randbereich 

VR 702 SUB-BRIGHT 

Poti 

Grundhelligkeit des Bildes 

VR 701 H.CENTER 

Poti 

horizontale Zentrierung des 
Bildes 

L 703 H.LINE 

Spule mit Kern 

horizontale Linearität des 
Bildes 

L 702 H.SIZE 

Spule mit Kern 

horizontale Bildgröße 

VR 601 V.HOLD 

Poti 

Bildfang (vertik. Rollen) 

VR 602 V.SIZE 

Poti 

vertikale Bildgröße 

VR 603 V.LINE 

Poti 

vertikale Linearität des Bildes 

siehe Foto 
(auf Bildröhre) 

Ferritring mit 
Lasche (Zunge) 

(2 Stück) 

diagonales verschieben des 
Bildes; Krümmung am Rand 
(vertikale Zentrierung) 
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Unscharfes Bild am Rand 
oder in der Mitte 

Für die Bildschärfe ist der FOCUS 
Regler zuständig. Durch verdrehen 
dieses Potis können Sie entweder den 
Rand oder den Bildmittelpunkt gesto- 
chen scharf abbilden, man muß folg- 
lich immer einen Kompromiß zwi- 
schen Randschärfe und Bildmittel- 
punkt wählen. Bei korrekter Einstel- 
lung ist das Bild über die gesamte 
Fläche ausreichend scharf. 

Heller Streifen 

am rechten oder linken Bildrand 

Mit dem Regler H.CENTER kann 
man das Bild in gewissen Grenzen 
nach rechts bzw. links verschieben. 
Außerhalb dieser Grenzen entsteht ein 
heller Streifen am entsprechenden 
Rand, der schließlich in einen dünnen 
hellen Strich übergeht. Liegt ein sol- 
cher Fehler vor, muß zuerst geprüft 
werden, ob durch verdrehen dieses Po- 
tis der helle Streifen verschwindet. 
Falls nicht, liegt der Fehler höchst- 
wahrscheinlich nicht am Monitor, 
sondern am Rechner. Verschwindet 
der Streifen, so befindet sich Ihr Bild 
nun sicher nicht mehr in der Mitte. 
Dies kann nun durch Verstellen der 
schwarzen Ferritringe auf dem Bild- 
röhrenhals in gewissen Grenzen korri- 
giert werden. Hierbei kann ein wech- 
selseitiges Verstellen der beiden Ringe 
und des H.CENTER-Potis erforder- 
lich sein. Sicherheitshalber sollte man 
sich die Grundstellung der Ferritringe 
merken. 





Die Spule H.LINE und das Poti V.LI- 
NE brauchen meistens nicht korrigiert 
zu werden. 


H.SIZE 


H.LIN 


FOCUS 
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Der Zusammenbau 

Nach erfolgreichem Abgleich kann 
das Gehäuserückteil wieder montiert 
werden, dabei verfährt man in umge- 
kehrter Reihenfolge wie beim Öffnen. 
Es ist darauf zu achten, daß die Laut- 
sprecherbuchse, die wegen ihrer klei- 
nen Kerben nur in einer Stellung 
richtig paßt, mit einem spürbaren 
„Klick“ auf dem Stecker einrastet. 

Zum Schluß noch eine allgemeine Be- 
merkung. Da die Bildröhre einen 
Heizfaden, ähnlich einer Glühbirne, 
besitzt unterliegt sie einem natürlichen 
Verschleiß. Der Monitor sollte des- 
halb nicht wegen einer Kaffeepause 
oder anderen kurzen Unterbrechun- 
gen ständig ein- und ausgeschaltet wer- 
den. Besser ist es den Monitor ein- 
geschaltet zu lassen und die Helligkeit 


des Bildes auf ein Minimum zu redu- 
zieren, damit sich das „stehende Bild“ 
nicht in die Leuchtschicht der Bildröh- 
re „einbrennt“. 

Erfahrungen nach dem Abgleich 

Haben Sie das Bild mittels dem H. 
CENTER-Poti in der Mitte zentriert, 
dürfen Sie sich nicht wundern, wenn 
nach dem nächsten Einschalten bzw. 
Reset Ihr Bild um ein paar Millimeter 
nach rechts oder links „gewandert“ ist. 
Dieser Effekt ist leider normal und 
kann nicht behoben werden. Es ist da- 
her ratsam beim „Vergrößern“ des Bil- 
des nicht die volle Größe der Bild- 
röhre auszunutzen. 

Der Regler SUB BRIGHT sollte kei- 
nesfalls voll „aufgedreht“ werden. 


Technische Daten SM 124 


Bildröhre: 30,5 cm diagonal; entspiegelt 
Anodenspannung: 15 000 Volt (max.) 
Ablenkwinkel: 90 Grad 
Beschichtung: Phosphor (papierweiß) 
Videobandbreite: ca. 32 MHz 
Auflösung: 640 x 400 Pixels; hochauflösend 
Horizontale (Zeilen-) Frequenz: 35,7 KHz 
Vertikale (Bildwiederhol-) Frequenz: 71 Hz 
Arbeitstemperatur: 5 bis 50 Celsius 
Netzspannung: 220 Volt - 50 Hz 
Leistungsaufnahme: 50 Watt 
Gehäuseabmessung: 33 x 31 x 28 cm 
Gewicht: 7,7 kg 

(ÜB) 


Blockschaltbild des ATARI Monitors SM 124 


Audio HS VS Video 



Focus Grund- 

Hell igkeit 
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Datei- 

verwaltung 

mit 

Sequentiellen und 
Direktzugriffsdateien 


In diesem Lehrgang sollen die Grund- 
begriffe der Dateiverwaltung kurz er- 
klärt und anhand von BASIC-Beispie- 
len aufgezeigt werden. Es werden die 
Methoden des sequentiellen und des 
direkten Zugriffs sowie deren Kombi- 
nation besprochen. Dadurch soll ein 
Grundstock geschaffen werden, aus 
dem man dann ohne weiteres eigene 
Dateien erstellen kann. Natürlich ge- 
hören zu einem Dateiverwaltungspro- 
gramm noch mehr als bloße Ein- und 
Ausleseroutinen. Doch das übrige wie 
zum Beispiel irgendwelche Sortier- 
oder Formatierroutinen muß man sich 
selbst nach eigenen Wünschen gestal- 
ten, während die Dateizugriffsmetho- 
den die gleichen bleiben. 

Sequentielle Dateien 

Sequentielle Dateien haben den Vor- 
teil, daß sie leichter zu erstellen sind 
als Direktzugriffsdateien, sind aber bei 
der Verarbeitung der Daten in ihrer 
Geschwindigkeit und Flexibilität sehr 
begrenzt. Sie heißt deswegen sequen- 
tielle Datei, weil alle Daten nacheinan- 
der in ihrer Reihenfolge geschrieben 
werden. In der gleichen Art und Weise 
werden sie auch wieder zurückgelesen. 
Die maximale Menge der Daten ist 
von der Größe des verfügbaren Ar- 
beitsspeichers abhängig, da man nicht 
auf einzelne Datensätze auf der Disket- 
te zurückgreifen kann. Somit muß 
man jedesmal die ganze Datei in vol- 
lem Umfang laden, um die Daten zu 
verarbeiten. Ein Nachteil ist auch, daß 
man beim ATARI ST BASIC keine 
Möglichkeit hat, einfach Daten direkt 
auf Diskette an eine schon bestehende 
sequentielle Datei anzuhängen. Ande- 
re BASIC-Interpreter haben für diesen 
Fall den APPEND-Befehl. Es bleibt al- 
so nur die Möglichkeit seine Datei in 


den Speicher zu laden, dort die neuen 
Daten anzuhängen und wieder zu- 
rückzuspeichern. 

Die folgenden Funktionen und An- 
weisungen werden in Verbindung mit 
sequentiellen Dateien benutzt: 

Der CLOSE-Befehl 
Sobald der Befehl CLOSE ausgeführt 
wird, wird die Beziehung zwischen 
der Datei und dem Ein- bzw. Ausgabe- 
gerät aufgehoben. Eine nachfolgende 
Ein- oder Ausgabeoperation, die die- 
selbe Dateinummer anspricht, ist ohne 
ein erneutes öffnen der Datei mit der- 
selben Dateinummer nicht mehr gül- 
tig. Man kann dieselbe Dateinummer 
dann aber auch für eine andere Datei 
benutzen. Durch das Schließen der 
Datei werden Daten, die noch in ei- 
nem Zwischenspeicher (Puffer) stehen, 
auf Diskette abgespeichert. Wenn man 
CLOSE ohne eine nachfolgende Da- 
teinummer angibt, werden alle derzeit 
geöffneten Dateien geschlossen. 

Der EOF-Befehl 

Mit dem EOF-Befehl (End of File) 
wird das Dateiende einer sequentiellen 
Datei abgefragt und somit eine Fehler- 
meldung vermieden. 

Der INPUT# -Befehl 
Der INPUT# -Befehl liest Daten aus 
einer Diskettendatei und weist sie Pro- 
grammvariablen zu. Zuvor muß zuer- 
st die Datei mittels des OPEN-Befehls 
geöffnet werden. Die Daten müssen so 
aussehen, als wären sie als eine norma- 
le Antwort auf den INPUT-Befehl ge- 
geben worden. Daraus folgt, daß bei 
numerischen Werten führende Leer- 
stellen, Zeichen für Wagenrücklauf 
oder Zeilenvorschub ignoriert wer- 
den. Es sei denn, sie stehen hinter dem 
numerischen Wert, wobei sie dann 


aber nur als Ende des Wertes erkannt 
werden. 

Der INPUTS-Befehl 
Für Datenfernverarbeitungsdateien ist 
dieser Befehl am günstigsten zu benut- 
zen, da er im Gegensatz zu INPUT# 
und LINE INPUT# alle ASCII-Zei- 
chen aus einer Datei einliest. 

Der LINE INPUT#-Befehl 
Dieser Befehl liest alle Zeichen einer 
Datei bis zum Zeichen für Wagen- 
rücklauf bzw. Zeilenvorschub. Zuvor 
muß zuerst die Datei mittels des 
OPEN-Befehls geöffnet werden. Alle 
Daten einschließlich irgendwelcher 
Trennzeichen werden dabei in eine 
Zeichenkette übernommen. Die maxi- 
male Anzahl der übernommenen Zei- 
chen beträgt 254. Der LINE 
INPUT# -Befehl ist zum Beispiel zu 
benutzen, wenn man ein BASIC-Pro- 
gramm in Datenform in ein anderes 
Programm einiesen will. 

Der LOC-Befehl 

Bei sequentiellen Dateien übergibt 
LOC die Anzahl der gelesenen Daten- 
sätze der Datei seit sie eröffnet wurde. 
Sobald eine sequentielle Datei für eine 
Eingabe eröffnet wird, liest das BASIC 
den ersten Sektor der Datei, so daß 
LOC schon eine 1 übergibt, bevor ir- 
gendeine Eingabe von der Datei gele- 
sen wurde. Bei Dateien mit Direkt- 
zugriff übergibt LOC die Datensatz- 
nummer des letzten gelesenen oder ge- 
schriebenen Datensatzes. 

Der LOF-Befehl 

Dieser Befehl übergibt die aktuelle 
Anzahl der Bytes, die der Datei zuge- 
ordnet sind (Länge der Datei). 

Der OPEN-Befehl 

Mit diesem Befehl wird die Ein- bzw. 
Ausgabe von und zu einer Datei geöff- 
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net. Es sind dabei drei Modi möglich: 
”0” steht für Ausgabe (Output) an ei- 
ne sequentielle Datei. 

”1” steht für Eingabe (Input) an eine 
sequentielle Datei. 

”R” steht für Ein- und Ausgabe von 
bzw. an eine Direktzugriffsdatei. 

Der OPEN-Befehl muß vor allen Ein- 
und Ausgabebefehlen einer Datei ste- 
hen. Es ist jederzeit möglich mehrere 
Ein- und Ausgabedateien auf einmal 
zu öffnen. 

Der PRINT# -Befehl 
Mit dem PRINT# -Befehl werden die 
Daten in die Datei geschrieben. Dabei 
entspricht das Format der Daten ge- 
nau dem Format des PRINT-Befehls, 
der Daten auf den Bildschirm schreibt. 
Eine Liste von Ausdrücken muß also 
mit Semikolon getrennt werden oder 
mit Kommata falls man Leerstellen 
zwischen den Daten wünscht. 

Der PRINT# USING-Befehl 
Er entspricht weitgehend dem 
PRINT# -Befehl, mit dem einzigen 
Unterschied, daß die Daten formatiert 
ausgegeben werden können. 


Der WRITE# -Befehl 
Dieser Befehl schreibt ebenfalls Daten 
in eine sequentielle Datei. Der Unter- 
schied zu PRINT# besteht darin, daß 
WRITE# Kommata zwischen die An- 
gaben einfügt, wie sie geschrieben wer- 
den und Zeichenketten (Strings) in 
Anführungszeichen einschließt. Aus 
diesem Grund braucht der Anwender 
keine Trennzeichen in diese Liste ein- 
zufügen. Außerdem werden auch kei- 
ne Leerstellen vor eine positive Zahl 
gesetzt. Ein Wagenrücklauf bzw. Zei- 
lenvorschub wird nach der letzten An- 
gabe der Liste geschrieben. 

Aufbau und Zugriff 
auf eine sequentielle Datei 

Nachdem nun ausführlich die Befehle 
besprochen wurden, die für eine se- 
quentielle Datei notwendig sind, soll 
jetzt gezeigt werden, wie man eine sol- 
che Datei aufbaut. Dazu sind folgende 
Schritte nötig: 

1. Die Datei muß mittels des OPEN- 
Befehls in dem Modus ”0” für eine 
Ausgabe geöffnet werden. 


2. Die Daten müssen mittels der An- 
weisungen PRINT#, WRITE# 
oder PRINT# USING in die Datei 
geschrieben werden. 

3. Soll nun auf die Daten zugegriffen 
werden, muß man zuerst die Datei 
mit dem CLOSE-Befehl schließen 
und anschließend mit dem OPEN- 
Befehl in dem Modus „I“ für Einga- 
be geöffnet werden. 

4. Jetzt kann man mit den Anweisun- 
gen INPUT# oder LINE IN- 
PUT# Daten aus der sequentiellen 

Datei lesen. 

In Listing 1 wird dazu ein kurzes Bei- 
spiel gegeben. 

Direktzugriffsdateien 

Direktzugriffsdateien sind Dateien mit 
wahlfreiem Zugriff, d. h. man kann 
auf jeden einzelnen Datensatz auf der 
Diskette zugreifen und diesen anschlie- 
ßend bearbeiten. Um dies zu ermögli- 
chen, ist jedem dieser Datensätze eine 
sogenannte Datensatznummer zuge- 
ordnet. Für Erstellung von Direktzu- 

(Fortsetzung Seite 46) 


List of \SEQDATEI .BAS 

10 ' Sequentielle Datei 

20 

30 closew 3:clearw 2:fullw 2 

40 dim ns $ ( 20 ) ,nl$(20) 

50 schre i ben : 

60 x = 0 

70 open "0“ ,# 1 , "Daten . seq" 

80 gotoxy 1 , 1 : pr int 

90 input "Name : "Jns$(x) 

100 if ns$(x)="*" then goto 140 

110 x=x+l 

120 print 

130 goto 90 

140 print 

150 print "Bitte Datendiskette e inlegen und Taste druecken !" 
160 a=inp<2) 

170 for i=0 to x-1 

180 pr int# 1 , ns$ < i ) 

190 next i 

200 cl ose 1 : pr i nt 

210 
220 
230 

2 40 1-esen: 

250 x=0 

260 open "I *,# 1 , "Daten .seq" 

270 if eof(l) then close 1 :end 
280 input# 1 , nl $ ( x ) 

290 print 

300 print "gelesener Name : ";nl$(x) 

310 x — x + 1 

320 goto 270 

Listing 1: Beispiel für eine sequentielle Datei 
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Was ist GEM? 


Das Betriebssystem das ATARI ST 
nennt sich TOS. Es ist nach dem Chef 
von ATARI benannt (Tramiel Opera- 
ting System). Das TOS ist eine Neu- 
entwicklung von Digital Research, ob- 
wohl es in einigen Punkten Ähnlich- 
keit mit bereits bekannten Betriebssy- 
stemen wie CP/M-68K, MS-DOS oder 
auch UNIX besitzt. Doch was ist ei- 
gentlich ein Betriebssystem? Ein Be- 
triebssystem ist ein Programm, also 
Software, die beim ATARI ST zur 
Zeit noch von Diskette geladen wer- 
den muß, abgesehen von einem klei- 
nen Urlader (Bootprogramm), welches 
in sogenannten ROMs im Rechner 
„steckt“. Erst durch diesen Urlader 
und durch das Betriebssystem (auf Dis- 
kette) wird der Rechner zum „Leben“ 
erweckt, ist er überhaupt in der Lage 
andere Programme bzw. Befehle aus- 
zuführen. Das TOS unterteilt sich, 
wie die meisten modernen Betriebssy- 
steme, in zwei große Teilbereiche, den 
eigentlichen Kern und eine Schale 
(auch Shell genannt), die den Kern um- 
gibt. Der Kern des Betriebssystems, 
das eigentliche BIOS (Basic Input Out- 
put System), verwaltet die Hardware 
des Rechners einschließlich der Peri- 
pherie wie Diskette, Drucker, Tasta- 
tur etc.. Der „normale“ Anwender hat 
mit diesem Kern nichts zu tun, kann 
ihn also kaum erreichen. Maschinen- 
nahe Programmierung, wie z. B. As- 
sembler, bildet hier natürlich eine 
Ausnahme. Der zweite Teil des Be- 
triebssystems die Schale oder auch Be- 
nutzeroberfläche liegt über dem Kern. 
Sie erledigt die Kommunikation mit 
dem Benutzer, empfängt seine Einga- 
ben mittels der Tastatur oder der 
Maus. Diese Eingaben werden von der 
„Schale“ interpretiert und ein entspre- 
chender Befehl an den Kern des Be- 
triebssystems weitergeleitet. Danach 
wartet sie auf ein Ergebnis vom Kern 
und meldet es dem Benutzer. 

Beim ATARI ST wird diese Schale 
bzw. Benutzeroberfläche GEM oder 
auch GEMDOS genannt. GEM ist die 


Abkürzung für „Graphics Environ- 
ment Manager“ was etwa soviel bedeu- 
tet wie „Verwalter der grafischen Be- 
nutzeroberfläche“. GEM verwaltet 
den hardwareunabhängigen Teil des 
Betriebssystems, es ist also ein Binde- 
glied (Schnittstelle) zwischen Mensch 
und Maschine. GEM setzt jedoch in 
seiner Form völlig neue Maßstäbe, die 
den heutigen benutzerfreundlichen Er- 
fordernissen gerecht wird. 

Entstehung von GEM 

Der Grundstein für diese Art von 
„grafischer Benutzerführung“ wurde 
bereits 1970 von der Firma Xerox ge- 
legt. Während Xerox ein völlig neues, 
hochwertiges und kompliziertes Sy- 
stem für den Bereich der Bürokommu- 
nikation zu entwickeln versuchte, 
gelang es ein wenig später dem ameri- 
kanischen Computerhersteller APPLE 
einen „preiswerten“ Computer für je- 
dermann, namens Lisa, zu entwickeln. 
Lisa erschien mit einer grafischen Be- 
nutzeroberfläche, nach Art von Xe- 
rox, Anfang der 80er Jahre. Mangels 
geeigneter Software, die diese neue Be- 
nutzeroberfläche unterstützte, kündig- 
te sich jedoch bald der kommerzielle 


Mensch 


Tod von Lisa an. Erst durch den Ma- 
cintosh, APPLES neusten Computer, 
wurde Lisa’s Konzept der grafischen 
Benutzerführung bekannt. Merkmale 
dieser grafischen Benutzeroberfläche, 
die mit einer Maus bedient wird, sind 
die Verwendung von Fenstern (Win- 
dows), sogenannten Icons (grafische 
Umsetzung von Objekten wie z. B. 
einem Papierkorb oder Aktenordner 
usw.) und Pull-Down-Menüs (kleine 
Fenster, die auf Wunsch des Benutzers 
Informationen in das laufende Pro- 
gramm einblenden). GEM, wie es mit 
dem ATARI ST geliefert wird, stellt 
zur Zeit den letzten Schritt in dieser 
Entwicklung dar. Es ist größtenteils in 
der Programmiersprache „C“ geschrie- 
ben. 

Bestandteile von GEM 

GEM beinhaltet aber nicht nur die 
einfach zu bedienende und verbesserte 
Betriebssystemoberfläche des Macin- 
tosh^, sondern auch ein riesiges 
Bibliotheks-Paket mit vielen nützli- 
chen Routinen, die der Programmie- 
rer auch für seine eigenen Programme 
nutzen kann und bei Bedarf auch soll- 
te. So sind z. B. fertige Routinen für 


Maschine 
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die Eingabe über Tastatur oder Maus, 
die Ausgabe von Zeichen bzw. Texten 
auf Bildschirm oder Drucker ebenso 
vorhanden, wie zum Betrieb der 
Schnittstellen und der Diskettenbe- 
handlung. Einige dieser Routinen wer- 
den in der sogenannten GEM-AES 
Schicht aufgerufen. AES ist die Kurz- 
form für Application Environment 
Services, was frei übersetzt soviel be- 
deutet wie „Hilfsmittel zur Gestaltung 
von Anwenderprogrammen“. Wie ei- 
ne Routine dann mit der Hardware 


des Rechners zusammenarbeitet braucht 
den Anwender nicht zu kümmern, 
denn dies besorgt die GEM-VDI Ebe- 
ne. VDI ist die Abkürzung für Virtual 
Device Interface; zu deutsch etwa 
„imaginäre Geräteschnittstelle“. Inter- 
essant ist die Möglichkeit solche Rou- 
tinen von anderen höheren Program- 
miersprachen aus aufzurufen. Wie 
man z. B. von Basic aus verschiedene 
Zeichensätze aufrufen oder die Strich- 
stärke einer Linie verändern kann, ist 
ein wenig später erklärt. 


Fühlen Sie sich jedoch durch die Be- 
dienung mit der Maus oder der Fen- 
stertechnik des GEMs behindert, so 
haben Sie beim ATARI ST die Mög- 
lichkeit auf das TOS ohne die GEM- 
Ebene umzuschalten (siehe Anwen- 
dung anmelden). Dann erfolgen alle 
Eingaben mittels herkömmlicher Kom- 
mandos, ähnlich MS-DOS, über die 
Tastatur. 


GEM-Routinen 


Prinzipielle Nutzung 

Basicerweiterung 

in Form von Unterprogrammen 


GEM enthält eine Vielzahl von lei- 
stungsstarken Routinen, die vor allem 
bei grafikorientierten Programmen ih- 
re Anwendung finden. Der Program- 
mierer kann zum Beispiel eine 
Routine zum Zeichnen einer Ellipse 
direkt anspringen und muß sich keine 
Gedanken machen über mathemati- 
sche Grundlagen, Aufbau des Bild- 
schirmspeichers, usw. 

Aber kann man diese Routinen an- 
sprechen? 

Sind sie nur auf komplizierten Wegen 
nutzbar oder bleiben sie demjenigen, 
der weniger tief in die Rechnermaterie 
Einblick nehmen will, verschlossen? 

Nun, beim ATARI ST können diese 
Fragen positiv beantwortet werden. 
Sie sind in jeder Programmiersprache 
nutzbar, falls diese eine GEM-Schnitt- 
stelle eingebaut hat oder zumindest 
über eine Möglichkeit zum Aufruf 
von Assemblerprogrammen verfügt. 


Dazu gehören momentan: 

• C 

• Pascal, Modula 2, BCPL, ... 

• Assembler 

• Basic 


Sinngemäß findet man in der Sprache 
C, und in artverwandten Sprachen die 
angenehmste Art der GEM-Program- 
mierung. Dies ist darauf zurückzufüh- 
ren, daß GEM in C geschrieben ist, 
und was sollte einfacher sein als ein 
Programm der gleichen Sprache aufzu- 
rufen. Dies geschieht durch namentli- 
chen Aufruf der Routine mit Über- 
gabe der benötigten Parameter. 


Prozedurname (x,y,z,...) 
oder 

Ergebnis: = Funktionsname (x,y,z,...) 


Da jede Routine über einen eigenen 
Namen verfügt, ist der Funktionsau- 
fruf besonders übersichtlich, wobei in 
C auf diese Art und Weise alle GEM- 
Routinen in ein eigenes Programm 
eingebaut werden können. Andere hö- 
here Programmiersprachen bieten ähn- 
liche Möglichkeiten. Natürlich ist 
GEM auch in Assembler ansprechbar. 
Dies erreicht man durch Angabe einer 
fest zugeordneten Funktionsnummer 
und einen anschließenden speziellen 
Assemblerbefehl, wobei die Lage der 
angesprochenen Routine im Speicher, 
wie bei manch anderem Betriebssy- 
stem, keine Rolle spielt. 

Auch in Basic ist die Einbeziehung 
von GEM vorgesehen, zwar nicht so 
komfortabel wie in C, aber immerhin 
möglich. Die Handhabung ist ähnlich 
wie in Assembler gestaltet. Es stehen 
hier vordefinierte Speicherzellen zur 
Verfügung, in denen die benötigten 
Befehlsparameter übergeben werden. 
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Bedeutung der Speicherzellen bzw. Datenfelder 


Eingabe: 

CONTRL 

CONTRL+2 

CONTRL +6 

INTIN 

PTSIN 

Ausgabe: 
CONTRL +4 
CONTRL +8 
INTOUT 
PTSOUT 


Befehlsnummer 

Anzahl der Eingabekoordinaten des PTSIN-Feldes 
Anzahl der Eingabedaten im INTIN-Feld 
Eingabefeld (Farbe, Schriftart, ...) 

Eingabefeld von Datenpaaren (z. B. Eckpunkte von Rechtecken) 

Anzahl der Ausgabekoordinaten 

Anzahl der Ausgabedaten 

Ausgabefeld (z. B. momentaner Schrifttyp) 

Ausgabefeld von Datenpaaren (Eckpunkte eines Buchstabens) 


Sämtliche Speicherzellen sind 16-Bit breit, was bei der Adressberechnung be- 
rücksichtigt werden muß. Das bedeutet, daß eine Datenzeile ’CONTRL + V nicht 
existiert. Falls die Bitbreite der Befehle PEEK und POKE abgeändert wurde, 
sollte durch ’DEF SEG = 0’ während der Bearbeitung der GEM-Routine die 
Bitbreite wieder auf 16-Bit eingestellt werden. 


Tabelle 1 : Bedeutung der Variablen 


Durch die Basicbefehle GEMSYS und 
VDISYS erfolgt der Funktionsaufruf 
von AES- und VDI-Routinen. In die- 
sem Artikel soll näher auf die VDI- 
Routinen eingegangen werden, da die- 
se von Basic aus wesentlich einfacher 
zu handhaben sind. 

Einige dieser Routinen sind schon als 
Basicbefehle eingebaut. Es sind die gra- 
fischen Grundfunktionen wie zum 
Beispiel das Ziehen von Linien, das 
Zeichnen von Ellipsen oder Teilkrei- 
sen sowie das Ausfüllen von Flächen. 
Allerdings sind einige leistungsstarke 
grafische Möglichkeiten des Rechners 
dabei verloren gegangen. Diese doch 
recht einfach realisierbare Funktionen 
kann man aber leicht durch Unterpro- 
gramme ersetzen. 

Prinzip des GEM-VDI Aufrufs 

Der Aufruf von VDI erfolgt immer 
nach dem gleichen Prinzip. 

WERT1 = num. Wert: 
WERT2 = num. Wert: 

GOSUB NAME 


Gestaltung der Unterprogramme 

Sämtliche Basicunterprogramme sind 
so gestaltet, daß man sie nach Bedarf 
an jedes beliebige Programm anhängen 
(MERGEN) kann. Es ist daher emp- 
fehlenswert die Zeilennummern zu 
übernehmen. 

• Die erste Zeile jedes Programmes 
enthält den Namen mit dem das 
Programm auch aufgerufen wird. 

• Die Eingabe der benötigten Funk- 
tionswerte (z. B. Eckpunkte eines 
Rechteckes und Füllmuster) muß 
sinngemäß vor dem Programmauf- 
ruf erfolgen. Aus der ersten REM- 
Zeile eines jeden Unterprogramms 
ist zu entnehmen, welche Werte 
übergeben werden müssen. 

• Bei den Variablennamen ist darauf 
zu achten, daß sie nicht zufällig 
auch im Hauptprogramm Vor- 
kommen. 

Nun aber zu den eigentlichen Rou- 
tinen. 


Impressum 

ST-Computer 

Herausgeber: Heim Fachverlag, 
Heidelberger Landstraße 194, 

6100 Darmstadt 13, 

Telefon (0 6131) 5 53 75 

Redaktion: Uwe Bärtels (UB-Chefredakteur), 
Harald Schneider (HS), Marcelo Merino 
(MM), Harald Egel (HE) 

Uwe Bärtels 
ST Redaktion 
Postfach 1131 
6242 Kronberg 

Freie Mitarbeiter: Markus Nerding (MN), 
Jörg Mainusch QM), Wilfried Rüsse (WR), 
Volker Sehorz (VS) 

Titelseite: Klaus Ohlenschläger 

Anzeigen: Anzeigenleiter H. Heim, 
Telefon (0 61 51) 5 53 75 
Anzeigenpreise nach Preisliste Nr. 1 
gültig ab 1.1.86 

Erscheinungsweise: 11 x jährlich 

Bezugspreis: Einzelheft DM 6,-. 
Jahresabonnement DM 60,- inklusive der 
gesetzlichen Mehrwertsteuer und den Zu- 
stellgebühren für 11 Ausgaben. 

Bezugsmöglichkeiten: ATARI-Fachhändler, 
Zeitschriftenhandel, Kauf- und Warenhäu- 
ser oder direkt beim Verlag unter obiger 
Adresse. 

Druck: Ferling Druck Darmstadt 

Manuskripteinsendungen: Programmli- 

stings, Bauanleitungen und Manuskripte 
werden von der Redaktion gerne angenom- 
men. Sie müssen frei von Rechten Dritter 
sein. Mit ihrer Einsendung gibt der Verfas- 
ser die Zustimmung zum Abdruck und der 
Vervielfältigung auf Datenträgern im Heim 
Verlag. Honorare nach Vereinbarung. Für 
unverlangt eingesandte Manuskripte wird 
keine Haftung übernommen. 

Urheberrecht: Alle in der ST-Computer er- 
schienenen Beiträge sind urheberrechtlich 
geschützt. Reproduktion gleich welcher 
Art, ob Übersetzung, Nachdruck, Verviel- 
fältigung oder Erfassung in Datenverarbei- 
tungsanlagen sind nur mit schriftlicher 
Genehmigung des Heim Verlages erlaubt. 

ATARI® ist eingetragenes Warenzeichen 
der Atari Corporation. 

GEM® ist eingetragenes Warenzeichen 
der Digital Research. 

Veröffentlichungen: Sämtliche Veröffent- 
lichungen in ST erfolgen ohne Berücksichti- 
gung eines eventuellen Patentschutzes, auch 
werden Warennamen ohne Gewährleistung 
einer freien Verwendung benützt. 

Haftungsausschluß: Für Fehler in Text, in 
Schaltbildern, Aufbauskizzen, Stücklisten 
usw., die zum Nichtfunktionieren oder evtl, 
zum Schadhaftwerden von Bauelementen 
führen, wird keine Haftung übernommen. 

© Copyright 1985 by Heim Verlag. 


Nr. 2, ST Computer 31 



Schriftart 



Der ATARI ST verfügt über verschie- 
dene Textdarstellungsformen. Dazu 
gehören Fettschrift, Kursivschrift, 
Hohlschrift, unterstrichene und helle 
Schrift oder beliebige Kombinationen. 
Dabei schalten Bit 0 bis Bit 4 der 
’SCHRIFTTYP’-Variablen die ver- 
schiedenen Schriftarten. 


BIT 

Wert 

Schriftart 

0 

1 

Fettschrift 

1 

2 

Helle Schrift 

2 

4 

Kursivschrift 

3 

8 

Unterstrichen 

4 

16 

Hohlschrift 


Durch Kombination kommt man 
schon auf 32 verschiedene Schriftarten 
bei denen allerdings einige schlecht les- 
bar sind. 


Der Aufruf erfolgt durch: 


SCHRIFTTYP = 
Gosub SCHRIFTART 


(0 < = SCHRIFTTYP < - 32) 





OUTPUT 

IT 


Schriftprobe 

A 


Schn ftproöc 

Schriftprobe 



Schriftprobe 

Schriftprobe 



Schn ftproöc 

Schriftprobe 




‘TI 


Bild 1 


65000 SCHRIFTART: 

65002 ' — > SCHRIFTTYP 

65004 ' 0 = Normal 1 = Fett 2 = Hell 

65006 * 4 = Kursiv 8 = Unterst. 16 = Hohl 

65008 * oder Kombinationen 

65010 ' 

65012 poke contrl ,106 
65014 poke contrl+2,0 
65016 poke contrl+6,1 
65018 poke intin »schrifttyp 
65020 vdisys 
65022 return 


Eine Auswahl der verschiedenen Schrift- 
arten zeigt Bild 1 (dazugehörend Li- 
sting 1). 


Routine Schriftart 


Der normale Schriftsatz wird wieder 
eingeschaltet durch: 


SCHRIFTTYP = 0 : 
Gosub SCHRIFTART 


5 ' merge “SCHRIFTART . bas " 

9 

10 fullw 2: clearw 2 

20 data 1,2,4,8,16,3,5,9,10,12,0 

30 for a=0 to 10 

40 read SCHRIFTTYP 

50 gosub SCHRIFTART 

60 gotoxy 14,a+4: prlnt “Schriftprobe“ 

70 next 

80 warte=inp<2> 

90 end 
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Listing 1: verschiedene Schriftarten 




Schriftgröße 


Ebenso kann man die Größe der 
Schrift verändern (Bild 2). Die Schrift- 
größen reichen hierbei von Kleinst- 
schrift, wie man sie in den Disketten- 
symbolen findet, bis zu äußerst großer 
Schrift, deren Ausmaße ein Vielfaches 
der Normalschrift einnehmen. 


Der Aufruf erfolgt durch: 


GROESSE = ... : 
gosub SCHRIFTGROESSE 


Dabei ist zu beachten, daß einige 
Schriftgrößen nicht mehr mit dem 
PRINT-Befehl ausgegeben werden 
können, da sich sonst die einzelnen 
Buchstaben bei großer Schrift über- 
schneiden und bei kleiner Schrift ein 
zu großer Zwischenraum zwischen 
den Buchstaben entsteht. Vermeiden 
kann man dies durch Ausgabe des 
Textes mit einer weiteren VDI-Rou- 
tine (Siehe Routine ’Textausgabe’). 


Bei dieser Routine ist darauf zu ach- 
ten, daß die Schriftgröße nach Pro- 
grammablauf wieder auf Normalgröße 
zurückgeschaltet wird, da es sonst zu 
Schwierigkeiten bei der Programmedi- 
tierung kommt. 



65030 SCHRIFTGROESSE: 

65032 * --> GROESSE 

65034 ' <9 sehr klein 9 klein 

65036 * 10-15 normal 16-17 gross 

65038 ' 16-17 gross 18-19 groesser 

65040 ' 

65042 poke contrl , 107 
65044 poke contrl+2,0 
65046 poke contrl+6,1 
65048 poke intin »groesse 
65050 vdisys 
65052 return 

Routine Schriftgröße 


Dies geschieht durch: 


GROESSE =10: 
gosub SCHRIFTGROESSE 


5 ' merge "SCHRIFTGROESSE. bas" 

6 » merge " TEXTAUSGABE . bas “ 

9 ' 

10 fullw 2:clearw 2 

20 data 8,9, 10, 16,18,20 

30 for a=l to 6 

40 read groesse 

50 gosub sehr i f tgroesse 

60 xpos=220: ypos=80+a*30 : text$="ST-Computer" 

70 gosub textausgabe 

80 next 

90 groesse=10 : gosub sehr i f tgroesse 

100 warte=inp(2) 

110 end 


Listing 2: verfügbare Schriftgrößen 
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Textausgabe 


Diese Routinen gibt einen String maß- 
stabsgerecht auf dem Bildschirm aus. 
Dabei wird auch Großschrift und 
Kleinschrift korrekt dargestellt. Bei 
dem Aufruf muß der auszugebende 
Text in ’TEXTS’ geschrieben werden 
und die Position der Ausgabestelle in 
die Variablen ’XPOS’ und ’YPOS’. 

XPOS = ... : 

YPOS = ... 

TEXTS = ’’ ” ; 

gosub TEXTAUSGABE 

Die Ausgabeposition ist frei wählbar 
und nicht wie bei ’PRINT’ zeilen- und 
spaltengebunden. 


65060 TEXTAUSGABE: 

65062 ' --> TEXT* ; XPOS ; YPOS 

65064 * masstabsgerechte Textausgabe 

65066 for i=0 to len(text$)-l 

65068 poke int in+ i *2,asc(m id$ ( text$ , i+ 1 , 1 ) ) 

65070 next 

65072 poke intin+i*2,0 
65074 poke contrl,8 
65076 poke contrl+2,1 
65078 poke contrl +6, len( text$ ) +1 
65080 poke ptsin , xpos+1 
65082 poke pts in+2, ypos+38 
65084 vdisys 
65086 return 

65088 ' 

Routine Textausgabe 


Textwinkel 


Textwinkel 


Als weiteren Leckerbissen kann man 
die Ausgaberichtung der Schrift verän- 
dern (Bild 3 und Listing 3). Leider er- 
folgt dies nicht kontinuierlich sondern 
nur in 90 Grad Schritten. Anwendung 
findet beispielsweise die dadurch er- 
reichbare senkrechte Textausgabe bei 
der Beschriftung von Koordinatensy- 
stemen oder bei der Bemaßung von 
Zeichnungen. 


Aufruf durch: 


WINKEL = ... ; 
gosub TEXTWINKEL 


(Winkel = 0 ; 900 ; 1800 ; 2700) 
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Die Routine arbeitet nur mit der 
GEM-Textausgabe zusammen, da der 
normale PRINT-Befehl dafür nicht 
ausgelegt ist. Wie schon bei den vor- 
hergehenden Routinen ist auch hier 
darauf zu achten, daß man vor Beendi- 
gung des Programmes den Winkel 
wieder normalisiert. 

Dies erfolgt durch: 

WINKEL = 0 : 

gosub TEXTWINKEL 


65100 TEXTWINKEL: 

65102 ' --> WINKEL 

65104 » (0 ; 900 J 1800 ; 2700 ) 

65106 poke contrl ,13 

65108 poke contrl+2,0 

65110 poke contri+6,1 

65112 poke intin, Winkel 

65114 vdisys 

65116 return 

65118 ' 

Routine Textwinkel 


5 ' merge “TEXTWINKEL. bas“ 

6 ' merge "TEXTAUSGABE. bas“ 

9 

10 fullw 2:clearw 2 

20 for Winkel =2700 to 0 Step -900 

30 gosub textwinkel 

40 xpos =300:ypos=150:text$=“ — >ATARI ST“ 
50 gosub textausgabe 

60 next 

70 warte = inp(2) 

80 end 

Listing 3. 


Grafikmodus 


Diese Funktion gibt den Schreibmo- 
dus an, der bei allen grafischen Opera- 
tionen von Bedeutung ist. Hiermit 
wird festgelegt, ob der Bildschirm 
überschrieben wird oder nach einer 
anderen bestimmten logischen Anwei- 
sung verknüpft wird. Es entstehen auf 
diese Art und Weise vier verschiedene 
Möglichkeiten der Bildschirmausgabe: 


Modus 

Bedeutung 

i 

Uberschrieben 

2 

Mischen 

3 

XOR 

4 

Mischen, Revers 


Der Aufruf erfolgt durch: 

MODUS = 1...4 : 
Gosub GRAFIKMODUS 



Bild 4 
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Modus 1 ist der Schreibmodus, der 
normalerweise bei allen Bildschirm- 
ausgaben in Erscheinung tritt. Der 
Hintergrund wird hierbei grundsätz- 
lich gelöscht. 

In Modus 2 werden die Bildschirmaus- 
gaben mit dem schon vorhandenen 
Hintergrund gemischt. Dies ist vor al- 
lem bei Beschriftungen von Grafiken 
interessant, da im normalen Schreib- 
modus hinter jedem Schriftzeichen ei- 
ne leere Box entsteht. 

Eine exclusive Oder-Verknüpfung er- 
reicht man durch Modus 3. Ein Bild- 
schirmpunkt wird hierbei nur dann 
gesetzt, wenn eines der beiden Bits 
(Hintergrundbit oder Objektbit) eine 
Eins enthält. Der betreffende Bild- 
schirmpunkt wird gelöscht, wenn bei- 
de Bits Nullen oder beide Bits Einsen 
enthalten. 

Der letzte mögliche Modus ist Modus 
4. Bei ihm erfolgt die Bildschirmausga- 
be wie bei Modus 2, jedoch mit zusätz- 
licher Invertierung. Damit kann z. B. 
Reversschrift ausgegeben werden: 


5 ' merge -GRAFIKMODUS. bas 


9 

9 


10 

f ul 1 w 

2:clearw 2 

20 

1 Ine f 

100, 100,400, 100 

30 

1 inef 

100, 100, 100,300 

40 

1 inef 

100, 300,400, 300 

50 

1 inef 

200, 100,200,300 

60 

1 ine f 

400, 100,400,300 

70 

1 inef 

300, 100,300,300 

80 

color 

1, 1, 1,2,2 : f ill 110,110 

90 

col or 

1,1, 1,6,2 : f ill 210, 110 

100 

color 

1,1, 1,8,2 : f ill 310, 110 

110 

for MODUS =4 to 1 step-1 

120 

gosub 

GRAFIKMODUS 

130 

gotoxy 

9, 6 + modus*2 

140 

print 

chr$ (14) chr$ < 1 5 > J 

150 

pr int 

“ST-COMPUTER 

160 

print 

chr$ C 14) chr$( 15) 

170 

next 


180 

warte= 

inp( 2 ) 

190 

end 


Listing 4: Grafikmodi 


MODUS = 4 : 

Gosub GRAFIKMODUS 


Bild 4 zeigt die verschiedenen Wirkun- 
gen des ’Grafikmodus’-Befehls auf un- 
terschiedlichen Hintergründen. 


65130 GRAFIKMODUS: 

65132 ' --> MODUS 

65134 9 1 = ueberschre iben 2 = mischen 

65136 ' 3 = XOR-verknuepfen 4 = re vers , m ischen 

65138 poke contrl ,32 

65140 poke contrl+2,0 

65142 poke contrl+6,1 

65144 poke intin ,modus 

65146 vdisys 

65148 return 

65150 ' 


Routine Grafikmodus 


Grafik 


Im VDI sind alle nur denkbaren Gra- 
fikfunktionen enthalten, die bestimm- 
te geometrische Elementarfiguren auf 
den Bildschirm zeichnen. 


- Kreis 

- Teilkreis 

- Rechteck 

- Rechteck, abgerundet 

- Ellipse 

- Teilellipse 

- Linie 

- verbundene Linien 

- ausgefüllte Flächen 


Einige dieser Funktionen sind direkt 
im Basic verfügbar, andere sind aller- 
dings nur über GEM Aufrufe erreich- 
bar. Die interessanten, bzw. die am 
meisten benötigten Routinen sind hier 
angegeben. 
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Rechteck 



GEN 


Leider vermißt man im Basic einen Be- 
fehl zum Zeichnen von Rechtecken. 
Diesen kann man zwar mit vier LINE- 
Befehlen umgehen, aber einfacher und 
schneller ist die spezielle VDI-Routine 
des GEM hierfür. Damit kann man 
das Rechteck zusätzlich mit einem 
vorgewählten Füllmuster ausfüllen las- 
sen, was wesentlich schneller ausge- 
führt wird, als mit dem FILL-Befehl 
(Bild 5 und Listing 5). 

Zum Aufruf genügt die Angabe der 
Koordinaten von zwei gegenüberlie- 
genden Eckpunkten. Die Reihenfolge 
der Eckkoordinaten ist dabei völlig be- 
liebig. Es ist also nicht erforderlich im- 
mer die linke obere Ecke und anschlie- 
ßend die rechte untere Ecke anzuge- 
ben. Die Funktion verlangt lediglich 
zwei Punkte die an einer Diagonalen 
des Rechteckes liegen. 

Der Aufruf erfolgt durch: 


XPOS1 = ... : YPOS1 = ... ; 
XPOS2 = ... ; YPOS2 = ... 

Gosub RECHTECK 


Bei dieser Routine, wie auch bei allen 
anderen GEM-Routinen, die etwas auf 
den Bildschirm ausgeben, sollte man 
darauf achten, daß das OUTPUT- 
Fenster in voller Größe geöffnet ist, 
denn anders wie bei dem Print-Befehl 
erfolgt die Ausgabe bei VDI-Befehlen 
direkt auf den Bildschirm, d. h. in die 
Fenster, die sich gerade auf dem Bild- 
schirm befinden. 

Die Koordinatenumrechnung ist er- 
forderlich weil sich der normale Koor- 
dinatenursprung des Basic-Koordina- 
tensystems wegen des Output-Fensters 
unterscheiden. Die Abweichung be- 
trägt in X-Richtung 1 Pixel und in Y- 
Richtung 38 Pixels. Der Angleich wur- 
de vorgenommen damit man problem- 
los VDI- und normale Basicroutinen 
kombinieren kann. 



Bild 5 


64000 RECHTECK : 

64002 ’ --> XP0S1 ; YP0S1 ; XP0S2 ; YP0S2 

64004 poke contrl , 1 1 

64006 poke contrl+2 ,2 

64008 poke contrl+6 ,0 

64010 poke contrl+10,1 

64012 poke ptsin ,XP0S1 +1 

64014 poke pts in+2 , YPOS 1 +38 

64016 poke pts in + 4, XP0S2 +1 

64018 poke pts in+6 , YP0S2 +38 

64020 vdisys 

64022 return 

64024 ' 


Routine Rechteck 


5 ' merge "RECKTECK . bas " 

9 

10 fullw 2:clearw 2 
20 color 1 , 1 , 1 , 9, 2 

30 xpos 1 = 1 00: ypos 1=100: xpos2=300 : ypos2=300 
40 gosub rechteck 

50 color 1 , 1 , 1 ,9, 3 

60 xpos 1=150: ypos 1=150: xpos 2= 2 30 : ypos 2=260 

70 gosub rechteck 

80 warte =inp(2) 

90 end 


Listing 5: Rechtecke, eckig 
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Rechteckrund 


Rechteck abgerundet 

Dieser Befehl zeichnet ebenso wie in 
der- vorherigen Routine ein Rechteck. 
Dieses Rechteck aber besitzt abgerun- 
dete Ecken (Bild 5a rechts). Man muß 
wieder nur die Koordinaten von zwei 
diagonal gegenüberliegenden Eck- 
punkten eingeben, die Gestaltung der 
'runden Ecken’ übernimmt die VDI- 
Routine. 

Es wird hier von GEM eine Routine 
bereitgestellt, die beispielsweise zum 
Umrahmen von Bildern oder von 
Texten geeignet ist. 

Das Unterprogramm bietet zwei Mög- 
lichkeiten: 

Entweder nur ein Rechteck zu malen 
oder gleichzeitig die vom Rechteck 
eingeschlossene Fläche auszufüllen. 

Der Aufruf erfolgt durch: 


XPOS1= ... ; YPOS1 = ... : 
XPOS2 = ... ; YPOS2 = ... ; 
FUELL = ... : 
gosub RECHTECKRUND 


Die Variable FUELL gibt an ob ein 
Rechteckrahmen oder ein ausgefülltes 
Rechteck gezeichnet werden soll. Da- 
bei wird bei 'FUELL = 0’ ein Rahmen 
gemalt und bei 'FUELL < >0’ ein aus- 
gefülltes Rechteck. Die Füllfarbe bzw. 
das Füllmuster muß vorher mit dem 
COLOR-Befehl definiert werden. 


64030 RECHTECKRUND: 

64032 ' --> XP0S1 J YP0S1 i XP0S2 5 YPOS2 
64034 ' --> FUELL ' C0 ODER <> 0) 

64036 poke contrl , 1 1 
64038 poke contrl+2,2 
64040 poke contrl+6,0 

64042 if fuell = 0 then poke contrl+10,8 

eise poke contrl+10,9 
64044 poke ptsin , XPOS t +1 
64046 poke pts in+2 , YPOS 1 +38 
64048 poke pts in+4, XP0S2 +1 
64050 poke pts in+6 , YP0S2 +38 
64052 vdisys 
64054 return 

64056 ' 


Routine Rechteckrund 



5 ' merge "RECHTECK. bas" 

6 » merge "FECHTECKRUND. bas" 

9 

10 color 1,1, 1,5 ,2 

15 fullw 2:clearw 2 

20 xposl=100: ypos 1=100: xpos2=300: ypos2=300 
30 gosub rechteck 

40 xpos 1 =200: ypos 1=80: xpos 2=400: ypos 2= 200 

50 FUELL= 1 

60 color 1,1,1,22,2 

70 gosub rechteckrund 

80 warte =inp(2) 

90 end 
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Listing 5a: Rechtecke 



Linienstärke 


Linienbefehle 

Eine weitere Besonderheit des GEM- 
VDI ist die Veränderbarkeit der Li- 
nien. Dazu gehören: 

• Linienstärke 

• Linienmuster 

• Aussehen der Linienendpunkte 

Alle Grafikoperationen benutzen sehr 
feine, durchgehende Linien. Eine Än- 
derung dieser Attribute ist im ST-Basic 
nicht vorgesehen. GEM-VDI bietet da 
einige Möglichkeiten, die bei der einen 
oder anderen Anwendung sehr nütz- 
lich sein können. 

Dabei gelten diese Routinen nicht nur 
für Geraden sondern auch für Ellipsen 
und Rechtecke. 



Bild 6 


Linienstärke 

Diese Routine gibt an mit welcher 
Stärke eine Linie auf dem Bildschirm 
abgebildet wird (Bild 6). Damit ist eine 
Hervorhebung bestimmter Kurven 
oder grafischen Figuren möglich. 

Die Routine wird wie folgt aufgerufen: 

STAERKE = ... ; 

Gosub LINIENSTAERKE 


64220 LINIENSTAERKE: 

64222 ' --> STAERKE 
64224 poke contrl ,16 
64226 poke contrl+2,1 
64228 poke contrl+6,0 
64230 poke ptsin, staerke 
64232 poke ptsin+2, 0 
64234 vdisys 
64236 return 

64238 ' 


'STAERKE = (1,3, 5, 7,...)’ 

Zur Normalisierung der Linienstärke 
wird die Routine mit 'STAERKE = T 
aufgerufen. 


Routine Linienstärke 


5 ' merge "LINIENSTAERKE • bas " 

9 

10 fullw 2: clearw 2 

20 for staerke = 37 to 1 step -4 

30 gosub 1 inienstaerke 

40 x=20+s taerke* 1 5 

50 linef x, 100, x, 300 

60 next 

70 warte = inp<2) 

80 end 


Listing 6: verschiedenen Linienstärken 
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Mit -Hilfe dieser Routine kann man 
einstellen ob eine Linie mit gepunkte- 
ter, gestrichelter oder anderer Linien- 
form gezeichnet wird (Bild 7). 
Insgesamt stehen sechs Linientypen 
und ein frei definierbarer Typ zur Ver- 
fügung. Die vordefinierten Typen und 
die entsprechenden Werte zum Pro- 
grammaufruf sind in der folgenden Ta- 
belle dargestellt. 

Typ Bitmuster (16-Bit) 

1 1111111111111111 

2 1111111111110000 

3 1111000011100000 

4 1111111000111000 

5 1111111100000000 

6 1111000110011000 

7 frei definiertes Muster 

Diese Muster eignen sich beispielswei- 
se zum Darstellen von Hilfslinien in 
Diagrammen oder verdeckten Linien 
in dreidimensionalen Körpern. Auch 
zum gleichzeitigen Darstellen mehre- 
rer Kurven sind verschiedene Linien- 
typen, zumindest auf einem mono- 
chromen Monitor, unverzichtbar. Der 
Aufruf erfolgt durch: 

LINIENTYP = ... 

Gosub LINIENMUSTER 


Zum Wiederherstellen der normalen 
geschlossenen Linienform ruft man 
die Routine mit ’Linienmuster= T auf. 



Bild 7 


64240 LINIENMUSTER: 

64242 » — > LINIENTYP 
64244 ' 1-7 
64246 poke contrl ,15 
64248 poke contrl+2,0 
64250 poke contrl+6, 1 
64252 POKE INTIN, llnientyp 
64254 vdisys 
64256 return 

64258 ' 


Routine Linienmuster 


5 ' merge "LINIENMUSTER. bas" 

9 ' 

10 fullw 2:clearw 2 

20 for linetyp = 1 to 7 

30 gosub linienmuster 
40 y=60 +20*1 inetyp 

50 linef 50,y,550,y 

52 z=20 +70*1 inetyp 

55 circle z, 250, 30 

60 next 

70 warte =inp(2) 

80 end 


Listing 7: Linienmuster 
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Linienendform 


Normalerweise sehen alle Linien am 
Anfang und Ende eckig aus. Dies ist 
natürlich auch angebracht. Mit dieser 
Routine allerdings kann man dieses 
Aussehen verändern. Es stehen zwei 
zusätzliche Endformen zur Verfü- 
gung, wobei Anfangs- und Endform 
getrennt definiert werden. 

• abgerundete Endform (2) 

• Pfeil (1) 

• eckig (0) 

Die Zahl in Klammer gibt den Wert 
an, der in den Variablen übergeben 
werden muß. 

Aufruf durch: 

ANFANGSFORM = ... : 

ENDFORM = ... : 

Gosub LINIENENDFORM 



Bild 8 


Die Pfeilform ist hierbei sehr gut zur 
Bemaßung einzusetzen oder zum Dar- 
stellen von Vektoren. Die Wirkung 
dieser Routine zeigt Bild (8). Kombi- 
niert wurde dieses Programm mit den 
Routinen ’LINIENSTAERKE’ und 
’GRAFIKMODUS’. 


64200 LINIENENDFORM: 

64201 ' --> ANFANGSFORM J ENDFORM 

64202 poke contrl ,108 
64204 poke contrl+2,1 
64206 poke contrl+6,0 

64208 poke int in, Anfangsform 
64210 poke intin+2, Endform 
64212 vdisys 
64214 return 

64216 ' 


Routine Linienendform 


5 ' merge "LI NI ENENDFORM . bas * 

6 'merge “LINIENSTAERKE.bas" 

9 ' 

10 fullw 2: clearw 2 

20 anfangs form=2 : endform=l :gosub 1 in ienendform 

30 for staerke = 21 to 1 step -4 

40 gosub 1 in ienstaerke 

50 y=20+staerke* 1 2 

60 linef 400, y, 100, y 

70 next 

80 warte = inp(2) 

90 end 


Listing 8: Einbahnstraße 
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Bibliotheken 


Die jeweils benötigten Unterprogram- 
me können nach Bedarf zu einem 
Hauptprogramm zugeladen werden. 
Dies geschieht durch einfaches ’MER- 
GE ”PROGRAMMNAME.BAS”\ 
Wenn mehrere Routinen benötigt 
werden kann dies manchmal etwas lä- 
stig werden. Deshalb sollte man sich 
Unterprogrammbibliotheken anlegen, 
die n ach Aufgabe und Wirkung geglie- 
dert sind. So wäre eine TEXTBIBLIO- 
THEK und eine GRAFIKBIBLIO- 
THEK empfehlenswert, mit folgendem 
Inhalt: 


Textbibliothek 

Schriftart 

Schriftgröße 

Textausgabe 

Textwinkel 

Grafikmodus 


Grafikbibliothek 

Rechteck 

Rechteckrund 

Linienmuster 

Linienendform 

Linienstärke 


Anmerkung 

Bei eventuell fehlerhaftem Aufruf von 
VDI-Routinen kann es Vorkommen, 
daß das Basic auch auf einen anschlie- 
ßenden korrekten Aufruf nicht mehr 
richtig reagiert. Wenn sich also zum 
Beispiel die Schriftart nicht mehr um- 
schalten lassen sollte, hilft meistens ein 
’QUIT mit anschließendem Neustart 
des Basics. Das öftere Zwischenspei- 
chern von Programmen ist deshalb 
auch hier empfehlenswert. 


Kombination der einzelnen Routinen 

Die VDI-Routincn können wie alle 
normalen Basicbefehle auch kombi- 
niert werden. So kann man dicke Ge- 
raden mit abgerundeten Enden als 
auch große Kursivschrift erzeugen. 
Die angegebenen Beispielprogramme 
sollen eine Anregung zum Eigenexpe- 
riment sein, wobei diese ’ neuen Basic- 
befehle’ sicher in so manchem Pro- 
gramm ihre Anwendung finden wer- 
den. Ein Beispiel, in dem von einigen 
Routinen Gebrauch gemacht wird, 
zeigt Bild 9 (Listing 9). 



Bild 9 


5 ' merge "LINIENSTAERKE . bas " 

6 ' merge M LINIENENDFORM . bas " 

7 ' merge "LINIENMUSTER. bas" 

8 ' merge "SCHRIFTART . bas " 

9 

100 ' BEMASSUNG EINES RECHTECKES 

110 fullw 2: clearw 2 

120 staerke =3 : gosub 1 in ienstaerke 

130 xposl=100 :yposl=200: xpos2=300 :ypos2=240 

140 gosub rechteckrund 

150 staerke =1 : gosub 1 in ienstaerke 

160 linientyp=4 : gosub linienmuster 

170 linef 80,220,320,220 

180 linientyp=l : gosub linienmuster 

190 linef 100,230,100,280 

200 linef 300,230,300,280 

210 linef 295,240,340,240 

220 linef 295,200,340,200 

230 endform = 1 :anf angs f orm= 1 :gosub 1 i n ienendf orm 
240 linef 330,200,330,240 

250 linef 100,270,300,270 

255 endform =0 : anf angsf orm=0 :gosub 1 in ienendf orm 
260 schrifttyp = 4: gosub Schriftart 
270 gotoxy 11,16 : print"200 mm" 

280 gotoxy 20,12 : print"40 mm" 

290 sehr i f ttyp= 0: gosub Schriftart 
300 warte=inp<2) 

310 end 


Listing 9: Zeichnung 


Fortsetzung im nächsten Heft. 

• weitere Grafikbefehle 

• Die Maus in Basic 
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TWRBO-PASCAL 



Bild 1: Einschaltmeldung 


Standard-Pascal, von N. Wirth im Jahr 
1970 eingeführt, fand aufgrund seiner 
Leistungsfähigkeit, der leichten Erlern- 
barkeit und vor allem wegen des struk- 
turierten Aufbaus Verwendung in der 
Ausbildung. Aufgrund der weiten Ver- 
breitung von Pascal entstand der An- 
spruch, diese Sprache auch auf den En- 
de der 70er Jahre aufkommenden 
Kleincomputern einzusetzen. So wur- 
de eine auf diesen Anwendungsbereich 
bezogene Pascal-Version entwickelt, 
das sogenannte UCSD-Pascal. Wäh- 
rend mit Standard-Pascal im wesentli- 
chen mit Lochkarten gearbeitet wurde 
und Dateien auf Magnetbändern ange- 
legt waren, hat USCD-Pascal einen er- 
weiterten Befehlssatz, auch speziell 
zum unmittelbaren Zugriff auf Datei- 
en, die auf Magnetplatten bzw. Disket- 
ten gespeichert sind. Aber ein noch 
gewichtigerer Unterschied ist, daß 
UCSD-Pascal ein vollständiges Betriebs- 
system ist, bestehend aus Compiler, 
Linker, Texteditor, Utilities, verschie- 
denen Assemblern und einem System 
zur Wartung von Dateien. Da Editie- 


ren, Compilieren und Binden getrennt 
durchgeführt werden mußte, war ne- 
ben dem Zeitfaktor ein relativ großer 
Arbeitsspeicher notwendig. Mit der 
1985 erschienenen Version von Turbo- 
Pascal 3.0 der Fa. Borland Inc. wurden 
mehrere Vorzüge miteinander vereint. 

Sie ist mit etwa 200,- sehr preiswert 
(UCSD-P. ca. 800- 1000 DM), ein we- 
sentlicher Vorteil aber liegt bei dem 
geringen Speicherbedarf von ca. 34 KB 
auf der Diskette. Der Befehlssatz liegt 
nicht über dem der bisher bekannten 
Pascal-Versionen, hier wurde vielmehr 
auf eine Effizienz der Befehle wert ge- 
legt, die sich in einer äußerst beque- 
men Handhabung bemerkbar macht. 

Turbo-Pascal ist menügesteuert und 
hat keinen expliziten Compiler oder 
Binder wie andere Pascal-Versionen, 
das heißt, es ist nicht möglich, Teile ei- 
nes Quelltextes getrennt zu übersetzen 
und bei Bedarf mit anderen Program- 
men zu binden. Es gibt aber die Mög- 
lichkeit vollständige Programme mit 


den Standard-Prozeduren Chain und 
Execute zu koppeln. Dies mag man als 
Nachteil sehen, der jedoch wegen der 
Schnelligkeit des Turbo-Pascal Compi- 
lers in Vergessenheit gerät. Durch die- 
se Menüsteuerung ist Turbo-Pascal um 
bis zu < < < 100 > > >mal schneller 
als gewöhnliche Pascal-Versionen beim 
Erzeugen von lauffähigen Program- 
men. 

Unter CP/M ruft man Turbo-Pascal 
mit "TURBO” auf. Darauf erscheint 
das Eingangsmenü und fragt, ob zu 
Fehlermeldungen ein Kommentar an- 
gezeigt werden soll (Bild 1). 

Wenn mit Y geantwortet wird, wer- 
den bei auftretenden Fehlern nicht nur 
der Fehlercode sondern auch ein dem- 
entsprechender selbstklärender engli- 
scher Text ausgegeben. Nun wird das 
Hauptmenü angezeigt, das alle not- 
wendigen Optionen zur Steuerung 
beinhaltet. 

Hauptmenü 

Hier nun eine kurze Erklärung der 
zur Verfügung stehenden Befehle: 

LOGGED DRIVE: 

Bezeichnet das zur Zeit angemeldete 
Laufwerk (das kann natürlich auch ei- 
ne RAMDISK sein). 

ACTIVE DIRECTORY: 

Ist nur unter MS-DOS von Bedeutung. 
Dort kann man Unterverzeichnisse 
auf der Diskette anlegen. 

WORK FILE: 

Hier ist die zu bearbeitende Datei ein- 
zugeben, die, nachdem das Laufwerk 
angegeben wurde, geladen wird. Das- 
selbe gilt auch für das Neuanlegen ei- 
ner Datei. 

MAIN FILE: 

Ist anzugeben wenn ein Programm 
über mehrere Dateien verteilt wurde. 
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COMPILE: 

Compiliert ein Programm. 

RUN: 

Ausführung des Programms. 

SAVE: 

Sichen die Datei auf dem angemelde- 
ten Laufwerk unter dem bereits ange- 
gebenen Namen (Work File). 

DIR: 

Zeigt den Inhalt des angemeldeten 
Laufwerkes. 

QUIT: 

Beendet Turbo-Pascal. 

EXECUTE: 

Lädt das angegebene Codefile (.COM) 
und führt es aus. 


OPTIONs: 

Hier können Compiler-Direktiven ge- 
wählt werden [Compilen im Speicher, 
Compilen auf Diskette (direkt aus 
CP/M aufrufbar)]. 

EDIT: 

Ruft den bildschirmorientieren Text- 
editor, der auf Wordstar aufgebaut 
worden ist, auf. Dieser ist verständli- 
cherweise nicht mit einem so umfang- 
reichen Befehlssatz versehen wie 
Wordstar. Nähere Einzelheiten ent- 
nehme man dem Handbuch. 


Turbo-Pascal ist momentan für vier 
Betriebssysteme erhältlich: 


1. CP/M-80 

2. CP/M-86 

3. MS-DOS 

4. PC-DOS 

Dabei verfügen die Versionen für IBM 
und Kompatible noch über einige Gra- 
fikfunktionen. Diese fehlen den 
CP/M-Versionen gänzlich. 

Die in diesem Bericht erwähnten Pro- 
zeduren und Funktionen sind nur Be- 
standteil von Turbo-Pascal ab Version 
2.0 unter CP/M. Darüberhinausge- 
hende Unterschiede zu Turbo-Pascal 
unter MS-DOS, sowie andere Pascal- 
Versionen (Standard-Pascal, UCSD) 
werden im wesentlichen erläutert. 


Im folgenden wird auf die Besonder- 
heiten von Turbo-Pascal aufmerksam 
gemacht, die ein besonders effizientes 
Arbeiten möglich machen: 

a) Bei der Case- An Weisung ist ein Else 
erlaubt, das ausgeführt wird, wenn 
der Ausdruck nach Case einen 
Wert hat, der unter den Konstan- 
ten nicht vorkommt. 

b) Die Standardprozeduren Write und 
Read wurden generell für alle Ein- 
und Ausgaberoutinen eingeführt, 
da diese eine schnellere Abarbei- 
tung ermöglichen sowie erheblich 
vielseitiger und leichtverständlicher 
sind als GET und PUT. Hier sind 
keine Datenpuffervariablen nötig. 

c) Ein Programm kann ohne Pro- 
grammkopf beginnen. 


d) Der Datentyp PACKED und UN- 
PACKED hat in Turbo-Pascal kei- 
ne Wirkung, ist aber dennoch 
erlaubt, um Standard-Pascal Pro- 
gramme auch unter Turbo-Pascal 
lauffähig zu halten. 

Daher gilt: Die Datentypen packed 
Array [] of Char und Array [] of 
Char werden wie der Datentyp 
String [] behandelt, der zudem 
noch Zugriff auf einige Standard- 
prozeduren ermöglicht (Delete, In- 
sert, STR, VAL, Concat, Copy, 
Length, Pos). 

e) Bei GOTO haben außer Marken 
ebenso Namen Gültigkeit, aller- 
dings beschränken sich die Sprun- 
ganweisungen auf den aktuellen 
Block. Häufige Anwendung finden 
Sprunganweisungen für den Fall, 
daß man bei Eintreten einer be- 
stimmten Bedingung ans Programm- 
ende springen will. Da dies aberr 
nicht möglich ist, gibt es zur Ver- 
einfachung die Standardprozedur 
HALT. Sie bewirkt ein soforti- 
ges Beenden des Programmes. 

f) Turbo-Pascal beinhaltet folgende 
vordefinierte Konstanten, die ohne 
Definition verwendet werden 
können. 


Name 

Typ 

Wert 

pi 

Real 

3.1415926536E + 00 

Maxint 

Integer 

32767 

True 

Boolean 

Wahrheitswert true 

False 

Boolean 

Wahrheitswert false 


g) Neben den Konstanten gibt es auch 
die sogenannten Typenkonstanten. 
Diese sind eigentlich Variable, die 
im Konstantendefinitionsteil einen 
Anfangswert erhalten. Sie dürfen 
nicht in der VAriablendefinition 
vereinbart werden, und können 
neue Werte zugewiesen bekommen. 

h) In Turbo-Pascal gibt es drei Varian- 
ten von Dateien: Allgemeine Datei- 
en, Text-Dateien und typenlose 
Dateien. Letztere ermöglichen Zu- 
griffe auf Datensätze von 128 Byte 
Länge, die sehr schnell und speicher- 
effizient erfolgen. Die Prozeduren 
Read und Write werden durch 
Blockread und Blockwrite ersetzt, 
die jeweils 128 Byte Datensätze 
übertragen. Vorzugsweise zum Ko- 
pieren von Dateien eignet sich die- 
ser Typ. 



Dir nask; t*.* 

TINST COM : TINST DTR : TINST MSG : TINSTMSG OUR l TURBO COM 

TURBO MSG ; TURBO OUR 

Bytes Renainmg ön fl: 144k 


Bild 2: Hauptmenue 
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i) Die Angabe von Hexadezimalkon- 
stanten ist zulässig, allerdings ohne 
Angabe von Vorzeichen. 

DEZ 0.. .32767 

entspricht HEX $0000...$7FFF 

DEZ -1...- 32768 
entspricht HEX $FFFF...$8000 

j) Zeichenketten, Konstanten des 
. Typ Char, können außerhalb der 

Apostrophe auch Control-Zeichen 
enthalten, um bestimmte Effekte 
zu erzielen, z. B. Hupzeichen, Esca- 
pe, Return. 

Zur Angabe solcher Zeichen gibt es 
zwei Schreibweisen: 

1. # gefolgt von dem entsprechen- 

den Dez.-Code oder Hex.- 
Code des ASCII-Zeichens. 

2. gefolgt von dem Zeichen, das 
dem Ctrl-Zeichen entspricht. 

Hierzu drei Beispiele: 

#7 oder #$7 oder G 
für das Hupsignal 

#13 oder #$0D oder M 
für Return 

’H ALLO, AUFWACHEN’ 

G G G’EINGABE MACHEN’ 

Aneinanderreihung der Ctrl- 
Zeichen ohne Trennzeichen. 

k) Es gibt die folgenden logischen 
Operatoren für Werte des Typs 

1. INTEGER: 

NOT,AND,OR,XOR,SHL,SHR 

2. BOOLEAN: 
NOT,AND,OR,XOR 

l) Für Programme die die Kapazität 
des Arbeitsspeichers sprengen, gibt 
es die sogenannte Overlay-Technik. 
Die besagt, daß Teile des Objektco- 
des erst bei Bedarf in den Arbeits- 
speicher geladen werden, so laufen 
Programme, die insgesamt nicht in 
den Speicher passen würden. 

Durch den Vorsatz O V E R L A Y 
wird bewirkt, daß der Compiler 
den Objektcode nicht in der Datei 
des Hauptprogrammes ablegt, son- 
dern in einer gesonderten Overlay- 
Datei, aus der dann die einzelnen 
Overlays nachgeladen werden. Over- 
lays können ihrerseits wieder Over- 
lays aufrufen (allerdings nicht sich 
selbst). Durch Overlays können 
nur Prozeduren und Funktionen 
gekennzeichnet. Sehr speichereffi- 
ziente Technik, aber relativ zeitauf- 


wendig, wenn sich die Overlay- 
datei nicht auf RAM-Disk oder 
Festplatte befindet. 

Weitere Informationen zum Over- 
lay, insbesondere der Compiler Di- 
rektive zur Erzeugung der Overlay- 
datei, müssen dem Handbuch ent- 
nommen werden. 

m) Bei rekursiven Aufrufen dürfen lo- 
kale Variablen einem Unterpro- 
gramm nicht als VAR-Parameter 
übergeben werden. 

n) Prozeduren und Funktionen kön- 
nen nicht als Parameter an Unter- 
programme übergeben werden. 

prograin priro3; 


Bild 3: Primzahlenprogramm 


o) Die Standardprozedur PAGE, die 
einen Seitenvorschub bewirkt, ist 
unter CP/M nicht verfügbar. 

p) Für dynamische Variablen werden 
die Prozeduren NEW, MARK und 
RELEASE verwendet. Sie bieten 
Kompatibilität zu anderen Pascal- 
Versionen. 

Noch ein Wort zu den komfortablen 
Fehlermeldungen. Wie schon anfangs 
erwähnt, kann zusätzlich zu dem Feh- 
lercode auch ein entsprechender Kom- 
mentar angezeigt werden. Damit er- 
spart man sich ein häufiges Nachschla- 
gen im Handbuch, besonders dann, 
wenn man mehrere Fehler in einem 
Programm hat, da der Compiler be- 
reits beim ersten gefundenen Fehler 


abbricht. Das heißt, daß alle Fehler er- 
st nach mehrmaligem Compilieren des 
Programmes lokalisiert werden kön- 
nen. Mittels der Escape-Taste kommt 
man bei Entdeckung des Fehlers auto- 
matisch in den Editier-Modus, in dem 
der Cursor schon unmittelbar an oder 
hinter dem Fehler steht. Durch den 
bequemen Übergang von Compiler in 
den Editier-Modus und des sehr schnel- 
len Compilers kann man von keinem 
spürbaren Mangel sprechen. 

Mit dem folgenden Pascal-Programm 
wurden der ATARI 520 ST mit Turbo- 
Pascal V3.0 unter CP/M und der 
Commodore PC10 mit Turbo-Pascal 
V2.0 unter MS-DOS verglichen. 


Der Atari brauchte für das Compilie- 
ren und die Ausführung dieses Pro- 
grammes, das die Primzahlen bis 1000 
ausgibt, etwa 11 S., während der Com- 
modore nur 3.5 S. benötigte. Diesen 
noch erheblichen Zeitunterschied 
wird man auf den Emulator zurück- 
führen können, mit dem der CP/M 
Modus auf dem ATARI ST simuliert 
wird. 

Wünschenswert wäre deshalb eine 
Turbo-Pascal Version speziell für 68000- 
Prozessoren. Eine auf den ATARI ST 
zugeschnittene Version könnte dann 
die Vorzüge der IBM-Version in Bezug 
auf Geschwindigkeit und Grafikmög- 
lichkeiten noch übertreffen. 


var i , j ,k,ende: integer; 

m: array C 1 .. 100003 of integer; 

begi n 

for i : =2 to 1 OOO do begin 
mC i 3 : = i ; 
end ; 

ende:=trunc(lnl lOOO) ) + 1 ; 
for i : =2 to lOOO do begin 
for j : =2 to ende do begin 
k:=i*j ;roti<J:=o; 
end ; 
end ; 

for k:=2 to lOOO do begin 

if mlk ] < >0 then wr i te (rot k 1 , 9 *)? 

end 
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List of \DZGOUT . BAS 


10 ' Erstellen einer Direktzugriffsdatei 

20 

30 closew 3:clearw 2:fullw 2 
40 dar = 1 

50 open ”R" ,# 1 , “Daten .dzg** , 24 
60 field 1,20 as n$,4 as g$ 

70 gotoxy l,l:print 

80 print "Bitte Datendiskette e inlegen und Taste drücken ! 
90 a= i np( 2 ) 

100 print 

110 input “Name : "Jns$ 

120 if ns$="*" then close 1 :end 
130 input "Geburtsjahr : **;g 

140 lset n$=ns$ 

150 lset g$=mki$(g) 

160 put #l,dnr 

170 dnr=dnr+l 

180 print 

190 goto 110 

Listing 2: 

Erstellen einer Direktzugriffsdatei 


griffsdateien sind allerdings mehr 
Programmschritte erforderlich als für 
eine sequentielle Datei, was somit ei- 
nen größeren Programmieraufwand 
bedeutet. Außer dem Vorteil des wahl- 
freien Zugriffs kann man normaler- 
weise mit Direktzugriffsdateien auch 
Platz auf der Diskette sparen. Das 
rührt daher, daß nicht, wie bei sequen- 
tiellen Dateien im ASCII-Format abge- 
speichert wird, sondern im Binär- 
Format. Aus diesem Grund kann man 
zum Beispiel im BASIC Maschinen- 
programme in hexadezimaler Form in 
DATA-Zeilen erstellen, anschließend 
über den READ-Befehl in ein Varia- 
blenfeld einiesen und dann als lauffähi- 
ges Maschinenprogramm mit der 
OPEN-Anweisung in dem Modus „R“ 
auf Diskette abspeichern. Dieses „R“ 
werden vielleicht noch viele von Com- 
modores C 64 her kennen, denn es ist 

List of \DZGIN . BAS 

10 ' Zugriff 

20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 


das Kürzel für relativ und relative Da- 
teien und Direktzugriffsdateien sind 
genau dasselbe. Zu den Datensätzen 
wäre noch zu sagen, daß sie eine Länge 
bis zu 32 767 Bytes haben können, also 
nicht von der Größe eines Sektors auf 
der Diskette (512 Bytes) abhängig sind. 
Daraus ergibt sich, daß ein Teil des 
Datensatzes in dem einen und der an- 
dere Teil in dem anderen Sektor ste- 
hen kann. 

Neben den Befehlen CLOSE, OPEN, 
LOC und LOF, die ja bereits oben 
ausführlich beschrieben wurden, wer- 
den folgende Befehle bei Direktzu- 
griffsdateien benutzt: 

Die CVD-, CVI- und DVS-Befehle 
Numerische Werte, die aus einer Di- 
rektzugriffsdatei gelesen wurden, müs- 
sen von Zeichenketten in Zahlen um- 
gewandelt werden. Dies geschieht mit 
den CV-Befehlen. Dabei wandelt 


auf eine Direktzugriffsdatei 


CVD eine acht Bytes umfassende Zei- 
chenkette in eine Zahl doppelter Ge- 
nauigkeit um. CVS wandelt eine 
Vier-Byte-Zeichenkette in eine Zahl 
einfacher Genauigkeit um und CVI 
wandelt eine Zwei-Byte-Zeichenkette 
in eine Integerzahl um. Die Funktio- 
nen CVD, CVI und CVS ändern dabei 
nicht die Bytes der aktuellen Daten, 
sondern sie ändern nur den Weg, wie 
BASIC diese interpretiert. 

Der FIELD-Befehl 

Mit dem FIELD-Befehl legt man Platz 
für Variablen in einem Puffer für Di- 
rektzugriffsdateien an. Dabei liest 
FIELD aber keine Daten in den Puf- 
fer. Man kann diesen Befehl also in et- 
wa mit dem DIM-Befehl vergleichen, 
der ja auch nur Platz für Datenfelder 
schafft. Zu beachten ist noch, daß die 
Gesamtzahl der Bytes, die der FIELD- 
Anweisung zugeordnet werden, nicht 
die Datensatzlänge überschreitet, die 


closew 3:clearw 2:fullw 2 
open “R" ,#1 , "Daten .dzg" , 24 
field 1,20 as n$ , 4 as g$ 
gotoxy 1 , 1 : pr i nt 

print "Bitte Datendiskette e inlegen und Taste drücken !" 

a= inp( 2 ) 

print 

input "Datensatznummer (99=Ende) : ";dnr 

if dnr=99 then close l:end 

get #l,dnr 

print “Name : ";n$ 

print "Geburtsjahr : ";cvi(g$) 

goto 90 


Listing 3: 

Lesen einer Direktzugriffsdatei 
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zuvor in der OPEN-Anweisung ange- 
geben wurde, da man ansonsten eine 
Fehlermeldung bekommt. 

Der GET-Befehl 

Mit dem GET-Befehl liest man einen 
Datensatz aus einer Direktzugriffsda- 
tei in einen Puffer. Da das BASIC und 
das TOS so viel wie möglich Datensät- 
ze in dem Puffer für Direktzugriffsda- 
teien Zwischenspeichern, liest die 
GET-Anweisung nicht unbedingt bei 
jedem Zugriff von Diskette, da die Da- 
ten auch schon im Puffer stehen 
können. 

Der LSET- und der RSET-Befehl 
Mit diesen Befehlen werden die Daten 
in den Datenpuffer für Direktzugriffs- 
dateien geschrieben. Hinter ihnen 
muß eine Zeichenkettenvariable ste- 
hen, die zuvor in der FIELD-Anwei- 
sung definiert wurde. Wenn diese Va- 
riable weniger Bytes benötigt als in der 
FIELD-Anweisung angegeben, werden 
die restlichen Bytes mit Leerstellen 
aufgefüllt. Bei LSET wird die Variable 
linksbündig und bei RSET rechtsbün- 
dig abgespeichert. Falls die Variable 
mehr Bytes hat als zuvor definiert, 
werden die Zeichen rechtsbündig ab- 
geschnitten. Numerische Werte müs- 
sen zuvor in Zeichenketten umgewan- 
delt werden (Siehe nächsten Befehl). 

Die MKDS-, MKI$- und MKS$-Befehle 
Jeder numerische Wert, der mit den 
LET- und RSET-Befehlen in den Puf- 
fer für Direktzugriffsdateien gebracht 
wird, muß zuvor in eine Zeichenkette 
umgewandelt werden. Dies geschieht 
durch die Befehle MKD$, MKI$ und 
MKS$. Sie bewirken das genaue Ge- 
genteil der CVD-, CVI- und CVS- 
Befehle. Die MK-Befehle unterschei- 
den sich von dem STR$-Befehl da- 
durch, daß sie nicht die Datenbytes 
ändern und BASIC sie anders inter- 
pretiert. 

Der PUT-Befehl 

Mit dem PUT-Befehl werden die Da- 
ten aus dem Puffer für Direktzugriffs- 
dateien auf Diskette geschrieben. 
Zuvor müssen die Daten mit PRINT 
#, PRINT# USING, WRITE#, 
LSET oder RSET in den Puffer ge- 
bracht werden. Im Falle von WRITE 
# wird der Puffer vom BASIC mit 
Leerstellen bis zum Wagenrücklauf 
bzw. Zeilenvorschub aufgefüllt. Jeder 
Versuch über das Ende des Puffers 
hinauszuschreiben oder zu lesen, er- 


gibt eine Fehlermeldung. Wie beim 
GET-Befehl werden die Daten solange 
im Puffer zwischengespeichert bis er 
voll ist und erst dann auf Diskette ge- 
schrieben. Bei einem Reset würden al- 
so alle Daten, die im Puffer stehen, 
verloren gehen. 

Erstellen einer Direktzugriffsdatei 

Wie bei der sequentiellen Datei soll 
nun in der folgenden Anleitung ge- 
zeigt werden, wie man eine Direktzu- 
griffsdatei erstellt. 

1. Zuerst muß die Datei mit dem 
OPEN-Befehl in dem Modus „R“ 
geöffnet werden. Dabei muß die 
Datensatzlänge in dem OPEN-Be- 
fehl bestimmt werden. Wird die 
Datensatzlänge weggelassen, wird 
als Standardlänge 128 Bytes ange- 
nommen. 

2. Mit dem FIELD-Befehl wird dem 
Puffer Platz für die Variablen zuge- 
teilt, die auf Diskette geschrieben 
werden sollen. 

3. Mit LSET oder RSET werden die 
Daten in den Puffer gebracht. Zu- 
vor müssen die Daten mittels der 
MK-Befehle in Zeichenketten um- 
gewandelt werden. 

4. Die Daten werden nun mit dem 
PUT-Befehl auf die Diskette ge- 
schrieben. 

Zugriff auf eine Direktzugriffsdatei 

Wenn man sich jetzt eine Direktzu- 
griffsdatei erstellt hat, will man die Da- 
ten ja auch wieder in den Speicher 
lesen können. Dazu gibt die folgende 
Anleitung die Möglichkeit. 

1. Die Datei muß zuerst einmal wie- 
der mit dem OPEN-Befehl im Mo- 
dus „R“ geöffnet werden. 

2. Ebenfalls muß der FIELD-Befehl 
wieder für Platz im Puffer sorgen. 
Allerdings braucht man, falls man 
in demselben Programm ein- und 
ausliest, den OPEN- und den 
FIELD-Befehl nur einmal benut- 
zen. Die Datei muß also nicht wie 
bei der sequentiellen Datei zuerst 
geschlossen und dann wieder geöff- 
net werden. 

3. Mit der GET-Anweisung wird nun 
der gewünschte Datensatz von der 
Diskette in den Puffer gelesen. 

4. Die Daten können jetzt vom Pro- 


gramm verarbeitet werden. Nume- 
rische Werte müssen allerdings, wie 
schon mehrfach erwähnt, zuerst 
mit den CV-Befehlen umgewandelt 
werden. 

Listing 2 und 3 geben ein Beispiel für 
Direktzugriffsdateien 

Die Kombination aus Sequentieller- 
und Direktzugriffsdatei 

Eine einfache und überaus sinnvolle 
Methode Dateien zu verwalten besteht 
darin, die beiden bisher kennengelern- 
ten Dateienarten miteinander zu kop- 
peln. Da man davon ausgehen kann, 
daß Daten so gut wie immer im Ar- 
beitsspeicher sortiert werden, ist somit 
zweckmäßig alle Daten, die sortiert 
werden sollen, in eben diesen Speicher 
einzulesen. Dafür bietet sich eine se- 
quentielle Datei an. In dieser sequen- 
tiellen Datei muß nun neben den 
betreffenden Daten auch noch die zu 
den Daten passende Datensatznum- 
mer stehen. In der dazugehörigen Di- 
rektzugriffsdatei befinden sich, nach 
Datensätzen geordnet, die übrigen Da- 
ten, die nicht sortiert werden sollen. 

Wenn man nun zum Beispiel nach ei- 
nem bestimmten Datensatz sucht, 
dann lädt man die sequentielle Datei in 
ein Datenfeld im Speicher. Dort läßt 
man jetzt nach dem ausgewählten Kri- 
terium suchen. Nachdem man es ge- 
funden hat, spaltet man mit einem 
Stringbefehl (LEFTS, RIGHTS oder 
MEDS) von dem sequentiellen Daten- 
satz die Datensatznummer für die Di- 
rektzugriffsdatei ab. Damit hat man 
jetzt die Möglichkeit die restlichen Da- 
ten aus der Direktzugriffsdatei nachzu- 
laden. Man spart somit eine Menge 
Platz im Arbeitsspeicher, da der voll- 
ständige Datensatz in zwei Teile ge- 
spalten worden ist und nur ein Teil 
davon sich im Speicher befindet. Diese 
Methode hat aber auch wiederum den 
Nachteil, daß man nur nach bestimm- 
ten Daten suchen kann, nicht nach 
allen. 

Ein Beispiel für diese Art von Daten- 
verarbeitung kann man an Listing 4 
sehen. 
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List of \ KOMBI DAT .BAS 

10 ' Kombinierte Datei 

20 

30 closew 3:clearw 2:fullw 2 

40 dim ns$(20) ,nl$(20) 

50 schre ibe n : 

60 x=l 

70 open "0 " , # 1 , "Seqkombi . dat M 

80 open "R" , #2, “Dzgkombi .dat" , 16 

90 field 2,4 as g$,12 as t$ 

100 gotoxy l,l:print 

110 input "Name (max.8 Zeichen) : M »nsS(x) 

120 if ns$(x)= M *" then goto 210 

130 if len(ns$(x))<8 then ns$(x)=ns$(x)+ H ":goto 130 
140 ns$(x)=ns$(x)+str$(x) 

150 input "Geburtsjahr : “;g 

160 input "Tel. -Nr. (max.12 Zeichen) : ";tel$ 

170 gosub direktschreiben 

180 x=x+l 

190 print 

200 goto 110 

210 print 

220 print “Bitte Datendiskette e inlegen und Taste drücken !" 
230 a=inp<2) 

240 for i=l to x-1 

250 pr i nt# 1 , ns$ ( i ) 

260 next i 

270 cl ose 1 : pr int 

280 goto lesen 

290 

300 direktschreiben: 

310 lset g$=mki$(g) 

320 lset t$=tel$ 

330 put #2,x 

340 return 

350 

360 

370 

380 lesen: 

390 x=l 

400 open " I " , # 1 , “Seqkomb i . dat " 

410 if eofCl) then close l:goto 460 

420 i nput# 1 , nl $ (x ) 

430 x = x+l 

440 goto 410 

450 print 

460 suchen: 

470 input "Welchen Namen wollen Sie lesen : ”;ni$ 

480 if len(ni$)<8 then ni$=ni$+" ":goto 480 

490 for i = 1 to x-1 

500 nv$ < i ) = 1 e f t$ ( nl $ ( i ) , 8 ) 

510 if ni$=nv$(i) then goto 550 

520 next i 

530 print “Name nicht vorhanden !" 

540 goto 460 

550 gosub direktlesen 

560 ausgeben: 

570 print “Name : "Jni$ 

580 print “Geburtsjahr : M ;cvi(g$) 

590 print “Tel. -Nr.: " ; t$ 

600 print 

610 input “Noch einen Datensatz Cj/n) “;jn$ 

620 if jn$=“j“ then goto suchen 

630 if jn$=“n" then close:end 

640 if jn$<>“j“ or jn$<>"n“ then goto 610 

650 direktlesen: 

660 dnr=val (r ight$ (nl $ ( i ) , 2) ) 

670 get #2,dnr 

680 return 
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Listing 4: 

Kombinierte Datenverarbeitung 



Druckertreiber 

für Itoh, NEC u. a. Drucker 



Wer einen ITOH 8510 oder NEC 
8023 oder dazu kompatiblen Drucker 
besitzt, kann die im Betriebssystem des 
ATARI implementierte Hardcopy- 
Routine, die über das gleichzeitige 
Drücken der <Alternate> und der 
<Help> Taste aufgerufen wird, 
nicht nutzen. Außerdem kann auch 
nicht ohne Programmhilfe der kom- 
plette ATARI-Zeichensatz (früher 
IBM-kompatible genannt) ausgedruckt 
werden, also Umlaute und Sonderzei- 
chen, die über die < Alternate > -Taste 
des ATARI 260ST / 520ST / 520ST + 
anzuspechen sind. 

Das Programm installiert die neue 
Hardcopy-Routine in der VBL-Queue 
(Vertical-BLank-Interrupt), die bei an- 
geschlossenem monochrom Monitor 
71mal in der Sekunde aufgerufen wird, 
und es dem Benutzer ermöglicht eige- 
ne Programme abarbeiten zu lassen. 
Bei Drücken von ALT/HELP wird 
dann die neue Hardcopy-Routine aus- 
geführt und durch erneutes Drücken 
von ATL/HELP abgebrochen. Um 
die Hardcopy-Routine an andere 
Drucker anzupassen, müssen in den 
’Datas: Druckersteuerung’ die entspre- 
chenden Escape-Sequenzen verändert 
werden. Die erste Zahl gibt jeweils die 
Anzahl der zu übertragenden Daten 
minus 1 an. 


’dinit:’ 

Druckerinitialisierung / wird nur zu 
Beginn der Hardcopy gesendet. 

’dzeile:’ 

wird bei neuer Bildschirmzeile (640 
Punkte) gesendet. 

’dreset:’ 

Druckerreset / wird am Ende der 
Hardcopy gesendet. 

Außerdem ist zu beachten, daß die 
Einzelnadelansteuerung beim ITOH- 
Drucker von oben nach unten erfolgt, 
während diese bei anderen Druckern 
oft umgekehrt aufgebaut ist. In diesem 
Fall muß der Assembler-Befehl clr d4 
(über ’loops:’) durch move #560,d4 
und add #80,d4 (zwei Befehle unter 
’loops:*) durch sub #80,d4 ersetzt 
werden. 

Aufbau und Werte der Einzelnadelan- 
steuerung im Graphikmodus: 


ITOH 

Nadeln 

z.B. EPSON 

1 

1 . ★ 

128 

2 

2. ★ 

64 

4 

3. ★ 

32 

8 

4. ★ 

16 

16 

5. ★ 

8 

32 

6. ★ 

4 

64 

7. ★ 

2 

128 

8. ★ 

1 


Das in das Programm integrierte 
Druckertreiber wandelt den ATARI- 
Code in eine Codesequenz für den 
Drucker um, die das entsprechende 
Zeichen oder ein durch Einzelnadel- 
graphik definiertes Symbol darstellen. 
So besteht die Möglichkeit, daß Sie 
sich Ihre eigenen Zeichen und Symbo- 
le in der Tabelle der Wandlungswerte 
definieren. Der Treiber kann durch 
folgendes Assemblerprogramm er- 
zeugt werden. 

Das Programm kann nur vom Desk- 
Top des ATARI aus initialisiert wer- 
den, nicht von einem „Auto“-Ordner 
aus. Außerdem darf es nur einmal ge- 
startet werden. 


Sonderzeichen aut Itoh - Drucker 8510 A 
und Comp a t i b 1 e n 


Zeichen und ASCII -Wert 


ä = 

132 


ö = 143 

, ü = 12y , 

ß = 158 

ä = 

142 


ö = 153 

, 0 = 154 

§ = 221 

[ = 

125 


1 = 092 

, C = 093 , 

> = 124 

0 = 

064 


\ = 123 

, ^ = 126 , 

1 = 091 
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;**»*****)HMHHf*«#********#*«**##»**»*»*#** ******* ************* 

;* BILDSCHIRM - HARD - COPY und * 
;* DRUCKERTREIBER fuer ITOH 8510 A, * 
;* NEC 8023 B und Compatible * 
; ************************************************************* 


nvbl : 

equ 

*45 4 

;Anzahl der UBL-Slots 

ubl : 

equ 

*456 

;Basi sadr . des UBL 

dhf : 

equ 

*4ee 

;ALT-HELP-F1ag 

badr : 

equ 

*44e 

; B i 1 dsch i rm-Bas i ^-Adr . 



jmp 

sv i 

;Sprung zur Installation 

;********* Jesi 

- A! t/Help - 

Routine *********************** 

beg i n s 

tst 

ahf 



bne 

re turn 



move 

#0,ahf 



bsr 

hc 



move 

#-l , ah-f 


re turn : 

r t s 


; Re turn zu Autru-fer 

;********* Hard - Copy - Routine ********* ***************** 

hc : 

1 ea 

d i n i t < pc ) , al 

;Drucker initialisieren 


bsr 

dou t 



move . 1 

badr 9 aO 

;Ui deobas is in aO 


move 

#49 , dl 

;50 * 8 Bi t (200 Punkte) 

! oopz : 

tst 

ah-f 

;Hardcopy abbrechen ? 


bne 

ret 



1 ea 

dze i 1 e ( pc ) , al 

; neue Zeile 


bsr 

dou t 



move 

#39, d2 

; 40 * 16 Bits <640 Punkte) 

\ oopb : 

move . 1 

#bu-f -f er , al 

; neuer Bl ock 


move 

#15, d3 



c 1 r 

d4 


1 oops : 

subq 

#1 ,d3 

;Block in Buffer 


move 

0 ( aO , d4) , 0 ( al 

,d3> 


add 

#80, d4 



dbf 

d3 , 1 oops 



move 

#15, d3 

;Block drucken 

1 oopd : 

move 

#7,d4 



move . 1 

#buf f er , al 


1 oopp : 

lsl 

( al ) + 

; Ze i chenausgabe 


r ox 1 

#1 , dO 



dbf 

d4 , 1 oopp 



bsr 

print 



db-f 

d3 , 1 oopd 



add. 1 

#2 , aO 

jnaechster Block 


db-f 

d2, 1 oopb 



add . 1 

#560, aO 

; naechste Zeile 


db-f 

dl , 1 oopz 


ret : 

1 ea 

drese t (pc ) , al 

; Drucker-Rese t 


bsr 

dou t 



r ts 


;Ende der HC => Return 

********** Data - out - Routine ************************** 

dou t ; 

move 

sr ,-( sp ) 



movem. 1 

dl -d5/a0-al 

(sp) 


move .b 

< al ) + , d5 

;Anzahl der Daten 

} oopo : 

move . b 

< al ) + , dO 

; Ze i chen hol en 


bsr 

print 

{Zeichen drucken 


db-f 

d5, 1 oopo 



movem. 1 

<sp>+,a0-al/dl-d5 


r tr 



************ Print - Routine 

***************************** 

pr i n t : 

movem. 1 

dl -d5/a0-al , - 

( sp ) ; Reg i st er sichern 


move 

dO ,-C sp) 



move 

#0 , sp > 



move 

#3 , sp ) 



pea 

radr ( pc > 

; Returnadresse 


move 

sr ,-<sp> 

; Ze i chenausgabe 

p r i n 1 1 s 

move . 1 

atrap 1 3, aO 


jmp 

CaO) 

;=> al ten trap#l 3 

radr : 

addq . 1 

#<s,sp 

{Stack korregieren 


movem . 1 

(sp)+ ,a0-al/dl-d5;Regi ster zuruecK 


r ts 
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********* Datas: Druckersteuerung ************************ 
even 

7.27, “>" ,27, M N" ,27,"T16 W ; un i di re . , <N> , 1 6/144 

7. 13. 10.27, "SO 640“ ; CR , Gr aph i kp . ( 640 ) 

7 1 , 27 , " < " , 27 , " A" , 1 3 , 1 0 , 1 0 , 1 0 ;bidire.,l/6 Z e i 1 en vor sc hut 


d i n j t : 
dze i l e s 
dr e se t s 


buf f er : 


de . b 
de . b 
de . b 
even 
bl k .ui 


8 


;********** Neue tr ap#l 3 Routine 


************************ 


tr ap 1 3 : 

move • 1 

sp ,a2 

; S t ackp . s i ehern 


bt st 

#5,<sp> 

; Superv i sor cal 1 


bne 

prints 

;wenn ja, verzweige 


move . 1 

usp , a2 

jsonst usp benutzen 


subq 

#6,a2 


prints: 

emp 

#3,6<a2> 

; Ze i chenausgabe-Auf ruf ? 


bne 

pr i n 1 1 



emp 

«0 ,8<a2) 

;zum Drucker ? 


bne 

pr i n 1 1 



move 

1 0 ( a2> , dO 

;Ze i chen hol en 


1 ea 

ze i tab( pc ) , aO 

;Zeiger auf Sonder ze i chen t abe 1 l e 


moveq 

#wwQ 1 -ze i tab-1 , < 

dl;Laenge der Tabele 

1 oop : 

emp . b 

( aO ) + , dO 

{Zeichen mit Tabelle vergleichen 


beq 

pr i n t i 

; wenn ja => ITOH-CODE drucken 


dbr a 

dl , 1 oop 

;wenn d 1 > — 1 dann Spung zu 1 oop 


br a 

pr i n 1 1 

jexistiert nicht, so drucken 

p r i n t i s 

1 sl 

#2, dl 



1 ea 

adr t ab< pc > , aO 

; Ze i ger auf Adr e ss t abe 1 1 e 


move . 1 

< aO , dl ) , aO 

;Zeiger auf Tabelle 


move . b 

< aO ) + , dl 

;Laenge der Tabelle -1 

] oop 1 : 

move . b 

< aO > + , dO 

;Zeichen aus Tabelle 


emp 

#255, dO 

{vergleiche Endekennung 


beq 

ex i t 

;wenn dl=255 dann Sprung zu ex i t 


bsr 

print 

; Ze i chenausgabe 


dbf 

dl , 1 oop 1 

jnaechstes Zeichen 

e x i t : 

r t e 


jzurueck zum Programm 

;********** Sonderzeichen-Tabelle CATARI-Wert) **************** 

ze i tab: 

de . b 

091 ,092,093,123 

;l 1 C \ 


de . b 

124,1 25 ,064,1 26 

; > £ (? * 


de . b 

132,148,129,158 

;ae oe ue sz 


de . b 

142,153,154,221 

;AE OE UE Pararaph 

; ***** 

Wandlungswerte bzw. Gr aph i kdef i n i t i onen <IT0H-Wert> ***** 

wwO 1 s 

de . b 

0,64,255 

;Paragraph 

ww0 2 : 

de . b 

0,93,255 

;UE 

wwO 3 : 

de . b 

0,92,255 

5 OE 

ww04 : 

de . b 

0,91 ,255 

; AE 

wwü5 : 

de . b 

0,126,255 

;sz 

ww0 6 : 

de . b 

0,125,255 

; ue 

ww0 7 : 

de . b 

0,124,255 

; ae 

ww0 8 : 

de . b 

0,123,255 

;ae 

wwO 9 : 

de . b 

13,27,83,48,48, 

48,56,0,24,12,12,24,48,48,24 ; 

wwl 0 : 

de . b 

13,27,83,48,48, 

48,56,0 ,62,65,65,93,85,21 ,30 ;0 

wwl 1 : 

de . b 

13,27,83,48,48, 

48,56,0 ,0 ,65,65, 1 19,62,8,0 ; C 

wwl 2 : 

de . b 

13,27,83,48,48, 

48,56,0 ,0 ,0 , 127, 127,0 ,0 ,0 ; > 

wwl 3 : 

de . b 

13,27,83,48,48, 

48,56,0 ,8,62, 1 19,65,65,0 ,0 ; V. 

wwl 4 s 

de . b 

13,27,83,48,48, 

48,56,0 ,65,65, 127, 127,0 ,0,0 ;C 

wwl 5 s 

de . b 

13,27,83,48,48, 

48,56,0,6, 12,24,48,96,64,0 

wwl 6 : 

de . b 

13,27,83,48,48, 

48 , 56 , 0 , 0 , 0 , 1 27 , 1 27 , 65 , 65 , 0 ; 1 


; ********** 

e ven 

adr t ab : de . 1 
de. 1 
de . 1 

a t r ap 1 3 : de . 1 
■ ************ 
su i s 


Adressen-Tabe 1 l e der Wandlungswerte ************** 


wwOl , ww02 , ww03 ,ww04 ,ww05 , ww06 
ww07 , ww08 , ww09 , wwl 0 ,wwl 1 , wwl 2 
ww 1 3 , ww 1 4 , ww 1 5 , ww 1 6 
0 


Adressen 

der 

ITOH-Ze i eher, 

al ter Traptfl 3~Vek tor 


INSTALLATION DER VEKTOREN **************************** 


move . 1 

4< sp ) , aO 

jProgramml aenge 

move . 1 

#*100 ,d7 


add. 1 

1 2< aO ) ,d7 


add . 1 

20 CaO) ,d7 


add . 1 

28( aO ) ,d7 


sub . 1 

#1 10 ,d7 

;mi nus Instal l . 

move . 1 

# i ns tal , sp ) 

; Sperv i sor-cal 1 

move 

#38 , sp > 


trap 

#14 


addq . 1 

#6 , sp 
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;********* INITIALISIERUNG DES trap#l 3 -L‘EKTORS **************** 


move . 1 

#trap 1 3 , sp ) 

; neuer Rektor 

move 

# 45 ,-<sp> 

sVek tornummer 

move 

# 5 , -< sp ) 


t rap 

«13 

; Vektor setzen 

addq . 1 

#8,sp 


move - 1 

dO , a t r ap 1 3 

; alten Vektor sichern 

move . 1 

«0 , - < sp > 


move . 1 

d 7 , sp > 

^Speicherplatz des 

move 

#$ 31 ,-Csp) 

; Pr ogr amms reserviere n 

t rap 

«1 

;=> Desktop 


;********* INSTALLATION DES ALT-HELP-UEKTORS ****************** 


i n s t a 1 : 

move 

nvbl , dO 

; Anz ah 1 

der Slots 


1 sl 

#2,d0 




move . 1 

vb 1 , aO 

;Basisadr. der Slots 


c 1 r 

dl 



search : 

tst . 1 

0 < ad , dl ) 

5 -f r e i e n 

Slot suchen 


beq 

•found 




addq 

«4 , dl 




emp 

dü , dl 




hne 

searc h 




rts 




■found : 

1 ea 

< aO , dl > , a2 

; + r e i e 

Sl otadr . merken 


move . 1 

#beg i n , < a2 > 

; Vek tor 

setzen 


rts 





;********* ENDE DER INSTALLATION ************************ 



Beispiel für eine Hardcopy mit dem Itoh-Drucker 
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Einführung in die 
Programmiersprache 



Pascal 


EINFÜHRUNG IN PASCAL 

Pascal ist neben Fortran und Basic eine 
der meistverbreitetsten höheren Pro- 
grammiersprachen. Sie findet ihe An- 
wendung vor allem im mathematisch- 
naturwissenschaftlichen Bereich, ist 
aber beispielsweise ebenso für die Da- 
tenverwaltung geeignet. Das Haupt- 
merkmal dieser Sprache liegt in ihrem 
übersichtlichen Aufbau, der durch spe- 
zielle Befehle ermöglicht wird. Dazu 
gehören verschiedene Anweisungen 
zur Schleifensteuerung: 

WHILE DO, 

REPEAT UNTIL, 

FOR NEXT 

sowie komfortable Verzweigungsmög- 
lichkeiten: 

IF THEN ELSE, 

CASE OF 

Dies bildet die Grundlage für eine 
strukturierte Programmierweise, der 
Pascal seine hohe Popularität ver- 
dankt. Ein Pascalprogramm besteht 
aus sogenannten Blöcken bzw. Modu- 
len. Diese besitzen nur einen Eingang 
und auch nur einen Ausgang, wodurch 
unkontrollierte und schwer über- 
schaubare Sprünge innerhalb eines 
Programmes vermieden werden. Des- 
weiteren resultiert aus diesem modula- 
ren Aufbau eine gute Lesbarkeit der 
Programme für den Programmierer 
selbst und auch für den Anwender. Bei 
vielen anderen Programmiersprachen 
wurden strukturierte Befehle nach- 
träglich übernommen. So zum Bei- 
spiel bei FORTRAN 77 und bei ver- 
schiedenen BASIC-Versionen. Auch 
das Basic des ATARI ST verfügt über 
solche Befehlserweiterungen gegen- 
über dem 'Standard Basic' (WHILE ... 
WEND, IF ... THEN ... ELSE). 


Bleibt die Frage, für welchen Pascal 
Compiler man sich entscheiden sollte. 
Wer bisher nur mit Interpreterspra- 
chen (BASIC, LOGO) gearbeitet hat, 
wird bei einem Compiler mit einigen 
Nachteilen konfrontiert werden. 

Nach dem Editieren eines Program- 
mes benötigt jeder Compiler eine ge- 
wisse Zeit um ein ablauffähiges 
Programm zu erzeugen. Man muß 
hierbei unbedingt unterscheiden zwi- 
schen den Diskettencompilern und 
Compilern, die komplett innerhalb 
des Rechenspeichers arbeiten. Erstge- 
nannte benötigen meist hohe Compi- 
lierzeiten und sind in ihrer Hand- 
habung recht umständlich. Dies ist al- 
lerdings eine Eigenschaft mit der alle 
Compilersprachen zu kämpfen haben, 
sei es nun FORTRAN, C oder andere. 

Eine sehr erfreuliche Ausnahme stellt 
TURBO-PASCAL dar. Es handelt sich 
hierbei um einen Compiler, der samt 
Editor ständig im Rechnerspeicher vor- 
handen ist. Ein Pascalprogramm kann 
innerhalb des Rechners übersetzt wer- 
den und erreicht somit eine hohe 
Compiliergeschwindigkeit, die zumin- 
dest bei kürzeren Programmen stark 
an einen Interpreter erinnert. Turbo- 
Pascal ist das ideale Werkzeug für Ein- 
steiger und Fortgeschrittene. Über den 
CP/M-Emulator ist Turbo-Pascal be- 
reits für den ATARI ST verfügbar. 

(siehe Bericht in dieser Ausgabe). 

Doch nun zu der Serie 'Einführung 
in PASCAL’, die in diesem Heft be- 


ginnt. Sie soll einen Einblick in die 
strukturierte Programmierung und die 
damit gegebenen Vorteile dieser und 
darauf aufbauender Programmierspra- 
chen (C, MODULA-2) geben. Pascal 
bietet dafür gute Voraussetzungen, 
weil man nach einer kurzen Einge- 
wöhnungszeit gut mit den Besonder- 
heiten und Möglichkeiten zurecht- 
kommt. In diesem Kurs wird deshalb 
zuerst ein Überblick über diese Mög- 
lichkeiten gegeben. Dabei wird nicht 
alphabetisch jeder Befehl abgehandelt, 
denn dies kann man im Handbuch 
nachlesen. Es soll vielmehr anhand 
von Programmbeispielen gezeigt wer- 
den, wie man übersichtliche Program- 
me erstellt und wie man Problemstel- 
lungen in eleganter Weise löst. 

Die Programme werden mit Turbo- 
Pascal Version 3.0 erstellt, sie sind je- 
doch auf allen gängigen Pascal-Com- 
pilern lauffähig solange keine Ein- 
schränkungen angegeben werden. 

Der Kurs beginnt mit einem einfachen 
Beispiel, an dem man jedoch schon 
wichtige Merkmale von Pascal aufzei- 
gen kann. Geben Sie nun das Pro- 
gramm (Listing 1) ein und compilieren 
Sie es. Sollten dabei Fehler auftreten, 
so müssen Sie das Quellprogramm mit 
dem Editor verbessern. Wenn das Pro- 
gramm fehlerfdrei übersetzt wurde, 
können Sie es starten. Geben Sie nun 
eine beliebige Zahl ein und drücken 
Sie RETURN. Als Ergebnis erscheint 
das zehnfache Ihrer Zahl auf dem Bild- 
schirm. 
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program mult lpl ikat ion; 

const faktor = 10; 

var zahl , ergehn i s : real; 

beg in 

write (' Eingabe : '); 
read (zahl); 
ergehn is : =zahl * faktor ; 
write (ergebnis) 


end . 

Listing 1 

Jedes Pascal-Programm besteht, grob 
unterteilt, aus drei Teilen. Dies sind 
der Programmkopf, der Vereinbarungs- 
teil und der Anweisungsteil. Der Pro- 
grammkopf ist in vielen Pascalver- 
sionen zwingend notwendig. Bei Turbo- 
Pascal kann er jedoch weggelassen 
werden. Es empfiehlt sich aber trotz- 
dem einen Programmnamen anzuge- 
ben, weil man damit den Inhalt des 
Listings beschreiben kann. Als Pro- 
grammkopf wurde bei diesem Beispiel 
’program multiplikation' gewählt. 

Achtung, bei manchen Pascal- 
Versionen darf der Programmname 
nur acht Zeichen lang sein! 

In nun folgenden Vereinbarungsteil 
werden alle Labels (Sprungzeichen), 
Konstanten, Typen, Variablen, Funk- 


P roqram m ko pf 


l/e.rcinbarungsi'e.il 


Anweisung steil 


Bild 1 Programmaufbau 


tionen und Prozeduren vereinbart. Der 
Programmierer muß also vor Beginn 
des Programms festlegen, welche Kon- 
stanten, Variablen usw. er. im Pro- 
gramm verwendet und von welchem 
Datentyp sie sind. Bei diesem Pro- 
gramm wird eine Konstante (CONST) 
mit dem Namen 'faktor' definiert, und 
ihr wird der Wert 10 zugewiesen. 
Hiernach folgt die Vereinbarung der 
Variablen (VAR). Die Reihenfolge der 
Vereinbarungen ist bei Pascal nicht 
beliebig. Die Konstantenvereinbarung 
muß vor der Vereinbarung der Varia- 
blen stehen. Eine komplette Übersicht 
der Prioritäten im Vereinbarungsteil 
erfolgt später. Als Variablen werden 
'zahl' und Ergebnis' festgelegt, ihr Da- 
tentyp steht hinter einem Doppel- 
punkt und ist der Real-Typ. Dies 
bedeutet, daß die Variablen Gleicht- 
kommwerte annehmen können. 

Bei der Benennung der Variablen hat 
man viele Möglichkeiten. Am Anfang 
darf nur keine Zahl stehen und Leer- 
zeichen können nicht verwendet wer- 
den. Es empfiehlt sich aussagekräftige 
Namen zu verwenden und nicht nur 
einzelne Buchstaben. Allerdings ist 
nur eine bestimmte Anzahl von Zei- 
chen relevant. Bei Turbo-Pascal sind es 
acht. Dies bedeutet, daß das Pro- 
gramm zwischen 'ergebnis’ und ’er- 
gebniswert’ nicht unterscheiden kann. 
Dies kann zu schwer auffindbaren 
Fehlern im Programm führen. Mit 


dieser Anweisung ist der Vereinba- 
rungsteil abgeschlossen. Es dürfen in 
dem nun folgenden Programm also 
nur die definierten Variablen und die 
Konstante ’faktor’ Vorkommen, alle 
anderen würden zu einer Fehlermel- 
dung bei der Compilierung führen. 

Der Anweisungsteil wird durch die 
Befehle: 

begin und end. 

begrenzt, wobei der Punkt das Ende 
des gesamten Programms anzeigt. Die- 
se Befehle umschließen immer eine 
Anweisung oder einen Anweisungs- 
block und finden somit in Pascal- 
Programmen öfter ihre Anwendung. 
Der Anweisungsblock beginnt hier 
mit einer ’write’-Anweisung, die den 
in Hochkommas stehenden Text auf 
dem Bildschirm ausgibt. Die darauffol- 
gende ’read’-Anweisung wartet auf ei- 
ne Eingabe des Benutzers, die mit 
< RETURN > abgeschlossen werden 
muß. Die eingegebene Zahl, alphanu- 
merische Zeichen sind nicht erlaubt, 
wird der Variablen 'zahl’ übergeben. 
In der nächsten Zeile wird der Varia- 
blen 'ergebnis’ das Produkt aus 'zahl’ 
und 'faktor' zugewiesen. Die Zuwei- 
sung hat in Pascal die Form: 

Variable : = numerischer Ausdruck 

Dabei muß aber auf den Datentyp ge- 
achtet werden. Man kann zwar eine 
Integerzahl einer Realvariablen zuwei- 
sen, aber nicht umgekehrt. Wenn man 
also einer Integervariablen eine Real- 
zahl zuweisen will, bricht das Pro- 
gramm schon beim Compilieren mit 
einer Fehlermeldung ab. Mit dem 
'write’-Befehl wird nun die Variable 
'ergebnis' auf dem Bildschirm ausgege- 
ben. Das Programm ist damit beendet, 
für einen erneuten Durchlauf muß 
man es wieder starten. Nach diesem 
Durchlauf werden Sie feststellen, daß 
die Ausgabe auf dem Bildschirm un- 
übersichtlich ist, weil alle Ausgaben 
Zusammenhängen. Sie können deshalb 
die Befehle 'write' und 'read' durch 
’writeln’ und ’readln' ersetzen. Da- 


ergebnis i real ; beg in 
faktor; wr i te (ergebnis) ;end 


program mul t ipl i kat i on; const f aktor= 1 0; var zahl,< 
write(* Eingabe : *>;read (zahl ) ;ergebnis : =zahl* 

Listing 2 
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program potenzen; 
labe 1 10; 

var zahl, quadrat : integer; 

wurzel : real; 

beg i n 

writeln (' sqrt(x) sqr(x)'); 

10: read (zahl); 

wurzel :=sqrt(zahl ) ; 
quadrat : =sqr (zahl ) ; 
writeln (wurzel : 20, quadrat : 10) ; 
goto 10; 
end . 


durch steht jede Ausgabe in einer neu- 
en Zeile. Auffällig bei einem Pascal- 
Programm ist, daß alle Anweisungen 
durch ein Semikolon getrennt werden 
müssen. Von dieser Regel gibt es nur 
wenige Ausnahmen. So muß zum Bei- 
spiel hinter ’begin’ kein Semikolon 
stehen, und auch hinter der letzten 
Anweisung vor einem ’end’ ist ein 
Trennzeichen nicht notwendig. Man 
kann sie aber trotzdem setzen, sogar 
mehrere hintereinander haben keine 
negativen Auswirkungen. Dagegen 
darf vor einem 'eise’ kein Semikolon 
stehen und auch hinter die letzte ’end’- 
Anweisung darf keines. 

Das Beispielprogramm enthält auch ei- 
nige Leerzeilen und Leerzeichen. Die- 
se sind nicht notwendig. Man kann 
sogar mehrere Anweisungen in eine 
Zeile schreiben (siehe Listing 2), doch 
würde das der Übersichtlichkeit des 
Programms sehr schaden. 

In Pascal ist es also möglich, beliebige 
Abstände zwischen Befehlen zu setzen 
und somit ein Listing optisch zu struk- 
turieren. Auch die Großschrift kann 
dazu verwendet werden. Sie kann equi- 
valent zu Kleinbuchstaben verwendet 
werden und kann mit diesen, sogar in- 
nerhalb eines Wortes, gemischt werden. 

Dieses Programm wird Zeile für Zeile 
ausgeführt, es läuft also von oben nach 
unten durch. Diese Programmart 
nennt man Folgestruktur. Diese 
Struktur läßt sich einfach als Strukto- 
gramm (auch Strukturdiagramm oder 
Nassi-Shneiderman-Diagramm) darstel- 
len (siehe Bild 2). Mit diesen Diagram- 
men werden alle grundlegenden Pro- 
grammstrukturen erklärt. Sie eigenen 
sich sehr gut für die strukturierte Pro- 
grammierung und haben die früher 


Listing 3 

verwendeten Programmablaufpläne 
(PAP) ersetzt. 

Das zweite Programm (Listing 3) ver- 
wendet wieder einige Elemente, die 
auch im ersten Programm vorkamen. 
Zusätzlich wird hier mit einem Label 
gearbeitet. Ein Label ist eine Sprung- 
marke, die das Ziel eines ’GOTO’- 
Sprunges markiert. Diese Möglichkeit 
des Sprunges entspricht dem ’GOTO’- 
Befehl in Basic und sollte in Program- 
men möglichst vermieden werden, 
weil er das Listing unübersichtlich 
macht. Labels müssen vor der Ver- 
wendung definiert werden. In einer 
Zeile können mehrere Labels verein- 
bart werden (z. B. label 10,20,1). In 
Turbo-Pascal dürfen, im Gegensatz zu 
Standard-Pascal, auch Namen als La- 
bels definiert werden. 

Ein Sprung darf jedoch nicht in eine 
strukturierte Anweisung (Schleife, 
Auswahlblock) erfolgen! Außerdem 
sind berechnete Sprünge nicht möglich! 


Bei der Variablenvereinbarung tritt 
der Datentyp Integer auf. Er legt die 
Variablenzahl und -quadrat als Ganz- 
zahlen fest. Dies beschränkt ihren 
Wertebereich auf -32 768 bis 32 767. 

Die Funktionen ’sqrt(x)’ und ’sqr(x)’ 
müssen genau von der Basic-Funktion 
’sqr’ unterschieden werden, ’sqr(x)’ be- 
deutet in Pascal das Quadrat (square) 
von x. Das Gegenteil ist dann ’sqrt(x)’, 
die Quadratwurzel (squareroot). Das 
Argument der beiden Funktionen ist 
in diesem Fall vom Datentyp ’integer’, 
es kann jedoch auch als ’real’ definiert 
werden. Wenn das Argument der 
Funktion ’sqr’ als Integer festgelegt 
wird, ist auch das Ergebnis im lnteger- 
bereich. Das bedeutet, daß es nicht 
größer als 32 767 werden kann. Bei hö- 
herem Argument ist dann das Ergeb- 
nis falsch, es wird negativ! Ist das 
Argument als Real-Zahl festgelegt, so 
treten diese Probleme nicht auf. Bei 
der Funktion ’sqrt* darf das Ergebnis 


Konstante : -fak+or - Jo 


Uoriobl en ; zahl ; ergebnis 


Argument- 

Ergebnis 

Eingabe. : zahl 

5 qy (x) 

real, integer 

real, integer 

Ergebnis .* * 2 .ah/ * faktor 

$>qrt(x) 

rectl, infeger 

real 

Ausgabe.: Ergebnis 


* nur bis 327 6 ? (!) 


Bild 2 Folgestruktur Bild 3 Funktion sqr(x) und sqrt(x) 
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TYPE 
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PROCE DURE 
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nicht vom Typ Integer sein (siehe auch 
Bild 3)! 

Der Befehl ’ writeln’ wurde schon zu- 
vor angesprochen, er wird hier jedoch 
noch für die formatierte Ausgabe er- 
weitert. Da eine Ausgabe der Form 
’write (x,y)’ die Werte von x und y 
ohne Zwischenraum hintereinander 
schreibt, wird eine andere Form des 
’write’-Befehls benutzt. Er hat die 
Form: 

write (wurzel:20,quadrat:10) 

Hinter jeder Variablen wird nach ei- 
nem Doppelpunkt die Länge des reser- 
vierten Zeilenplatzes angegeben. Die 
Variable ’wurzeP hat also einen Platz, 
der von der letzten Cursorposition 
zwanzig Stellen nach rechts reicht. In 
diese Spalten wird nun ihr Wert 
rechtsbündig hineingeschrieben. Der 
Platz für die nächste Variable beginnt 


dann an der nächsten Stelle und reicht 
zehn Plätze nach rechts. Wenn der re- 
servierte Platz zu klein ist, wird er bei 
der Ausgabe überschrieben. Es ent- 
steht dann ein unübersichtliches Zah- 
lengewirr. Deshalb sollte man das 
Format der Ausgabe gut durchdenken 
und eventuell mehr Platz als benötigt 
reservieren. Bei Dezimalzahlen kann 
man die Anzahl der ’Nachkomma- 
stelleiT festlegen. Der Befehl hat dann 
die Form: 

write (x:10:6) 

Dabei gibt die erste Zahl wieder die 
Gesamtlänge des reservierten Platzes 
an. Die zweite Zahl die darin enthalte- 
nen Nachkommastellen. Ansonsten 
gilt dasselbe wie für die Integer Zah- 
len. Anstelle der Zahlen können auch 
Variablen oder Konstanten stehen: 

write (x:10:i) 


Nachdem nun bei diesem Beispiel 
auch mit einem Label gearbeitet wur- 
de, ist es an der Zeit die Reihenfolge 
im Vereinbarungsteil darzustellen. 
Als erstes kommt die Labelvereinba- 
rung, dann die der Konstanten, Ty- 
pen, Variablen, Funktionen und 
zuletzt die der Prozeduren (siehe auch 
Bild 4). Funktionen, Prozeduren und 
Typen werden später im Text erklärt. 
Beim Vereinbaren muß man darauf 
achten, daß Namen bzw. Bezeichnun- 
gen nicht mehrmals verwendet wer- 
den. Die Compilierung wird dann mit 
’Duplicate identifier or lable’ abge- 
brochen. 

Das dritte Programm (Listing 4) ent- 
hält als Kern eine einfache Auswahl- 
anweisung. Sie wird in Bild 5 als 
Struktogramm dargestellt. Mit der ’if- 
Anweisung wird kontrolliert, ob die 
eingegebene Zahl Eins ist. Dann wird 
der Text ’hallo’ ausgegeben. Das Pro- 
gramm geht dann in der nächsten Zei- 
le weiter und gibt den Text ’wie geht 
es?' aus. Falls die eingegebene Zahl 
Zwei ist, überspringt das Programm 
die Zeile, die hinter der ’then’- 
Anweisung steht und gibt nur den 
Text ’wie geht es ?’ aus. Da es hierbei 
nur eine Möglichkeite gibt, nennt man 
diese Art der Auswahl auch einseitige 
Auswahl. 


program auswahl; 
var eingabe : real; 


beg in 

writeln <M oder 2'); 
readln (eingabe); 
if eingabe = 1 

then write ('hallo '); 
writeln ('wie geht es ?') 
end . 


Bild 5 einfache Auswahlstruktur Listing 4 
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Wariablen : eingabe 


Eli ngabe : eingabe. 


ja 


eingabe. = 1 

2 nem 


Ausgabe: ' hallo 1 


Ausgabe: 'toie geht 0 es ? 




program Quadrat ischeGle ichung; 
var x 1 , x2,p,q, wurz : real; 
begin 

writeln ('Quadratische Gleichung'); 
writeln ('gib p und q ein !'); 
readln (p,q>; 
wurz ; =(p*p/4-q) ; 
if wurz<0 

then writeln ('keine relle loesung !') 
eise if wurz=0 

then writeln ('nur ein loesung :',-p/2) 
eise 

begin 

wurz : =sqrt (wurz) ; 
x 1 : =-p/2+wurz; 
x2 : =-p/2-wurz ; 
writeln ('xl = ' , x 1 ) ; 
writeln ('x2 =',x2>; 
end; 

writeln ( ’ ' ) 

end. 

Listing 5 


Variablen : 

X4 ,X2 , p , q, cou r 2 . 

t- in gäbe. : p 

>9 


cuurz < 0 
ja 

nein 


cou rz =0 

n. nein 




Ausgabe : 
'keine reeile Lösung' 

Ausgabe : 
nur eint Lösung ' 
-p/2 

üüurz • - ytourz. 

X4 -p/2+uurz 
)(2 ■ =» -p/2-cuurz 

Ausgabe : X4, Xl 

Ausgabe. : 

/ 

/ 


Eine größere Bedeutung hat jedoch die 
mehrseitige Auswahl, die in Bild 6 dar- 
gestellt wird. Mit diesem Programm 
(Listing 5) wird eine quadratische Glei- 
chung mit der p-q-Formel gelöst. Die 
Variable ’ Wurzel’ bekommt den Inhalt 
des Wurzelausdrucks zugewiesen. 
Nun wird mit ’if’ abgefragt, ob der 
Wurzelausdruck kleiner als Null ist. 
Das Ergebnis wäre dann negativ und 
die Wurzel läßt sich nicht berechnen. 
Deshalb wird der Text ’keine reelle 
Lösung’ ausgedruckt. Danach wird 
mit der Anweisung fortgefahren, die 
hinter dem Auswahlblock steht. 
Wenn nun aber die Bedingung 
(wurz<0) nicht erfüllt ist, so wird bei 
’else’ nachgesehen, ob diese Bedingung 
(wurz=0) zutrifft. Gegebenenfalls wird 
dann ’nur eine Lösung’ ausgegeben. 
Treffen beide Bedingungen nicht zu, 
so ist die zweite ’else’-Abfrage an der 
Reihe. Hier muß keine Bedingung ge- 
stellt werden, weil alle anderen Fälle 
bereits herausgesiebt wurden. Bei der 
’if-then-else’-Anweisung wird also nur 
eine der Bedingungen ausgeführt und 
dann mit der Anweisung, die hinter 
dem Abfrageblock steht, fortgefahren 
(siehe Struktogramm). Dabei können 
vor dem letzten ’else’ noch beliebig 
viele Abfragen der Form ’else if...’ ein- 
gefügt werden. 

Wie man aus dem Struktogramm (Bild 
6) erkennen kann handelt es sich bei 
diesem Programm um einen Sonder- 
fall der zweiseitigen Auswahl, weil 
mehrere bzw. zwei Auswahlmöglich- 
keiten ineinander verschachtelt sind. 
Wenn man jedoch die Zeile mit der 
’else if’-Anweisung streicht erhält 
lman eine reine zweiseitige Auswahl. 

Zu Beachten ist hierbei, daß vor einem 
’else’ kein Semikolon stehen darf! Soll 
hinter einer Abfrage mehr als eine An- 
weisung stehen, so muß diese mit ’be- 
gin ... end’ umschlossen werden! 

(Fortsetzung folgt) 

(MN) 


Bild 6: mehrseitige Auswahlstruktur 
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7100 Heilbronn 
Telefon 07131/60048 




Gesellschaft für Datenverarbeitung mbh 

Computer • Drucker 
Zubehör • Fachliteratur 

Schloßplatz 3 • 7450 Hechingen 
Telefon 0 7471/14507 



MKV Computermarkt 

Rüppurer Straße 2d 
7500 Karlsruhe 
Telefon 0721-3730 71 


papierhaus erhardt 

Am Ludwigsplatz - 7500 Karlsruhe 
Tel. 0721-2 39 25 


FRANK LEONHARDT 
ELECTRONIC 

Ihr Fachgeschäft für Microcomputer * Hifi - Funk 

ln der Jeuch 3 
7600 Offenburg 
Telefon 0781/57974 


U. MEIER 

Groß- und Einzelhandel 

7700 Singen-Htwl. 

Postfach 4 47 


BUS BRAUCH & SAUTER 
COMPUTER TECHNIK 


Villinger Straße 85 
7730 VS-Schwenningen 
Telefon 07720/38071-72 
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Einkaufsführer 


Computertechnik 

rösler 

D-7750 Konstanz 
Zasiusstr. 35 • ® 0 75 31/218 32 



COMPUTER - SOFTWARE • PERIPHERIE 
BERATUNG • TECHN. KUNDENDIENST 

INGOLSTÄDTER STR. 62 L 

EURO -INDUSTRIE-PARK • 8000 MÜNCHEN 45 

TELEFON 089/3113066 TELETEX 898341 


JASKULSKI 

Hard- u. Software 

Mautnerstr. - 8263 Burghausen 
Telefon 08677/63320 


CDS 

EDV-Service GmbH 

Windausstraße 2 
7800 Freiburg 


MSG 

Marketing u. Service 

Autorisiertes Atari-Service Center 
Adelmannstr. 5 
8000 München 82 
Telefon 0 89/4300333 


BÜRO-DALLMER 

Altstadt 69 

8300 Landshut 

Telefon 08 71/210 62-64 


I Südbadens 
kompetenter 
| Computer-Partner. 


Kaiser-Joseph-Str. 232 
17800 Frefeurg, Tel.: 0761/2180225 



/ervice gmbh 

Lenzburger Straße 4 
7890 Waldshut-Tiengen 
Telefon 0 77 51/3094 


HARD AND SOFT 
COMPUTER GMBH 

Ulms großes Fachgeschäft 
für BTX, Heim- u. Personalcomputer 

Herrenkellergasse 16 • 7900 Ulm/Donau 
Telefon 0731/2699 


[J! COMPUTER STU DIO 

Büro & Datentechnik 
Claus Wecker 

Hafenbad 18/1 + Frauensdtr. 28 
7900 Ulm/Do. 

Telefon (0731) 6 8076 


Pro-CE 

8031 Gräfelfing 
Tel. 089/854 54 04 


DREYER GMBH 

Elektrotechnik 
Manchinger Straße 125 
8070 Ingolstadt 
Tel. 08 41/65 90 


Elektronik Center 
Bad Tölz 

Wachterstraße 3 
8170 Bad Tölz 
Telefon 08041/41565 



Computer /tudio 



BÜROMASCHINEN 



C/J 


Ludwigstraße 3 8220 Traunstein 

Stadtplatz 10 • Tel. 0861-14767 o. 3905 


C-SOFT GMBH 

Programmentwicklung & Hardware 

Holzfällerstraße 4 
8400 Regensburg 
Telefon 09 41 / 8 39 86 


Zimmermann 

elcktfojqnd 

8400 Regensburg 8390 Passau 
Dr.-Gessler-Str. 8 Meraner-Str. 5 
09 41 / 9 50 85 ® 08 51/51016 


flfiP-5HDP*l 

inha Steuer I 

Auf der Schanze 4 8490 Cham/ Opf. Telefon (09971) 97231 



Ihr Fachgeschäft 
für 

M Icrocompul er 
und 

Schreibwaren 



Zoom - 

Fotokopieren 


HIB-GM0H Compulerloden 
Außere Boyreuther Str. 72 
Postfoch 21 01 25 
8500 Nürnberg 21 
Tel: 091 1 / 515 939 
TeleH: 17 - 91 1 8253 hlb 
Teletew: 91 1 8253 HIB 
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Einkaufsführer 




HAAS 


Dresdener Str. 5 ■ Friedrichstr. 9 
8520 Erlangen • Telefon 12 01-0 


il/i/esi/ixt/A 

Computer + Unterhaltungselektronik 

Albrecht-Dürer-Platz 2 
8720 Schweinfurt 
Telefon 0 97 21 /652154 


VIDEO + COMPUTER 
HANDELS GMBH 

Steppacher Straße 8A 
8901 Augsburg-Vogelsang 
Telefon 08 21/48 20 76 


Computerservice 

Decker 

Meisenweg 29 - 8520 Erlangen 
Telefon 091 31 /42076 


CQflPUPDUE 

ATARI 520 ST 
APRICOT 

IBM Komp 

DIE EXPERTEN FÜR MlCROCOMPTER 

Festplatten 

Hardware 

Im Kahltal Zentrum, 8752 Mömbris 

Software 

Telefon (06029) 6520 oder 1410 

Schulung 


Szetedii 

Computervertrieo 


Elektronik GmbH 


Sandauerstr. 253 

8910 Laridsberg ■ & 0 81 91 / 3 95 00 


STEINWALD 
ELEKTRONIK GMBH 

Am Steingrund 1 • 8590 Marktredwitz 
Telefon 0 9231/62018 


'S? 09 06-60 99 

Altes Sträßle 28 
8850 Donauwörth 

Ihr Büroausstatter 


EDV-Organisation 
Hard- + Software 

Manfred Schweizer KG 

Benninger Str. 34, Tel. 0 83 31 / 1 22 20 

8940 Memmingen 


BÜRO-I 

I ZENTRUM | 

A + R 

<UTZ| 


^Bamberg - Tel. 0951/27808-09^ 


COMPUTER-CENTER-BURGER 

Speziellst für Personal- und Home-Computer. Programme 
Zubshör. Beratung, Service 

B670 Hof • Uimtaw Strato 11 • Telefon 09281/40075 Abt Computer 


y V ,ttnny 


V o 



Drucker 
Sollware 
Bücher 


HALLER GMBH 
Fachgeschäft für 
Mikrocomputer 
Büttnerstraße 29 
8700 Würzburg 
Tel. 09 31/1 6705 


Vertragshändler für 
IBM Personal-Computer 


ppgSuTeP 


KARSTADT Aktiengesellschaft 
Bürgermeister-Fischer-Str. 6-10 
8900 Augsburg 
Telefon(08 21)31 53-416 


Adolf & Schmoll 
Computer Studio 


Hörbrotstr. 6 - 8900 Augsburg 
Telefon (08 21) 52 85 33 

Wir sind außerdem autorisierte 
Service-Fachwerkstatt für: 


«»Schneider 

Qt commodore 


ATARI 
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oder eine Einführung in Turtle-Geometrie 


Wir haben uns in dem ersten Teil un- 
seres LOGO-Kurses mit den einfachen 
Befehlen der Graphikerzeugung be- 
schäftigt. Diesesmal verabschieden wir 
uns von der Welt der graphischen Dar- 
stellung um andere Seiten von LOGO 
kennenzulernen, kommen aber später 
wieder darauf zurück. 

Das LOGO Einmaleins 

Was hätte man von einer Computer- 
sprache, die keine Zahlen verarbeiten 
könnte? Schließlich können Compu- 
ter hauptsächlich nur mit Zahlen um- 
gehen. Genauso ist dies bei LOGO. 

LOGO kennt eine große Anzahl von 
mathematischen Funktionen, die so- 
wohl im Direkt-Modus angesprochen, 
als auch in Programme eingebaut wer- 
den können. 

Die Addition zweier oder mehrerer 
Zahlen funktoniert folgendermaßen: 

? + <zahl> <zahl> 
oder 

? <zahl> -l- <zahl> 
wie 

? SUM <zahl> <zahl> 


Diese drei Modi wiederholen sich bei 
Subtraktion, Multiplikationen, sowie 
Divisionen. 



Für die Benutzung von Produkten 
werden wir jetzt ein kleines Pro- 


gramm schreiben, das eine bestimmte 
Menge von Zahlen quadriert und auf 
dem Bildschirm auflistet. Tippen Sie 
bitte ein 

TO ZAHL :MENGE 

IF :MENGE >100 (STOP) 
PRINT :MENGE ★ :MENGE 
ZAHL :MENGE + 1 
END 


Jetzt geben Sie im Direct Modus ein: 
ZAHL 1 


*1 LOGO DlflLOGÜEigSjifl 

?ZAHL 1 
1 

4 

5 

16 

25 

16 

(9 

64 

Bl 

100 

121 

144 

Stopped! in ZAHL: Ü1EHGE 
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Das Programm wird die ersten 100 
Zahlen quadrieren und auf dem Bild- 
schirm ausgeben. Die mathematischen 
Fähigkeiten beschränken sich bei LO- 
GO nicht auf die vier Grundrechenar- 
ten, sondern wie bei anderen höheren 
Programmiersprachen auch, sind Funk- 
tionen wie Wurzelziehen, Potenzieren 
und trigonometrische Funktionen im- 
plementiert. Hier eine Übersicht die- 
ser Funktionen: 


SORT <zahl> 

ermittelt die quadratische Wurzel je- 
der beliebigen Zahl. SORT 9 ergibt 3 . 

Um die bisher beschriebenen Funktio- 
nen zu erläutern, werden wir eine klei- 
ne Prozedur schreiben, die eine qua- 
dratische Gleichung (lösbar) löst. 

Eine quadratische Gleichung kann fol- 
gendermaßen berechnet werden: 

-b + SQRT b 2 - 4ac / 2a 
-b - SQRT b 2 - 4ac / 2a 


Unsere LOGO Prozedur sieht so aus: 


TO QUADRATISCHE :A :B :C 
CT 

MAKE”ZWISCHEN SQRT B 2 - (4 ★ (:A ★ : C) 
MAKE”QG1 :-(B ■+ :Z WISCHEN) / 2 ★ :A 
MAKE”QG2 :-(B - ZWISCHEN) / 2 ★ :A 
PRINT :QG1 
frlINT :QG2 
END 

Jetzt geben Sie im Direkt-Modus ein: 
QUADRATISCHE 9 12 24 


Bei der Potenzierung mit einer gebro- 
chenen Zahl resultiert daraus eine 
Wurzel, z. B. 21 1/3 ist gleichbedeu- 
tend 21 und das ergibt 2.7589. 


QUOTIENT < zahl > <zahl> er- 
gibt den ganzzahligen Teil einer Divi- 
sion. QUOTIENT 7 2 ergibt 3. 

REM AINDER < zahl > < zahl > 
Durch REMAINDER wird der Rest 
einer Division bestimmt. 


ABS <zahl> 

ergibt den absoluten Wert einer Zahl 
wieder. ABS- 18 ergibt 18. 


INT <zahl> 

gibt den ganzzahligen Anteil einer 
Zahl wieder. Die Stellen hinter dem 
Dezimalpunkt werden ignoriert. INT 
3.5 ergibt 3. 


ROUND < zahl > 
rundet eine Zahl auf bzw. ab. 
ROUND 20.5 ergibt 21. Außerdem 
kennt LOGO die Zahl PI, wobei 
PRINT PI die Zahl 3.141592 ergibt. 


Desk File Run Edit Settings 
: r TOGO DIALQGUEFJC^^ 

7QU0TIEHT 16 5 
3 

7REMAIHDER 5 2 
1 

?ABS -9 
9 

?INT 16,3 
16 

7R0UHD 13,5 

14 

?PI 

3.141592 


Natürlicher Logarithmus, wie Loga- 
rithmus zur Basis 10 sind bei LOGO 
auch möglich. 

LOG 40 ergibt 3.6888 
(natürlicher Logarithmus von 40) 

LOG10 40 ergibt 1.6020 
(Logarithmus zur Basis 10 von 40) 

Um den natürlichen Logarithmus zu 
verdeutlichen, geben Sie folgende Pro- 
zedur ein, der den Sinur-Hyperbolikus 
berechnet: 

TO SINUSH :ZAHL 

MAKE” SH LOG 

(ZAHL + SQR ((ZAHL 2) + 1) 

PRINT :SH 

END 


Im Direct-Modus geben Sie ein: 
SINUSH 20 

Umwandlung von Bogenmaß in Alt- 
grad, und umgekehrt beherrscht LO- 
GO ebenfalls. 

DEGREES <zahl> Umwandlung ei- 
ner Zahl von Bogenmaß in Altgrad. 

RADIANZ <zahl> Umwandlung 
einer Zahl von Altgrad in Bogenmaß. 

Die wichtigen trigonometrischen 
Funktionen sind auch vertreten. 


SIN < zahl > ermittelt den Sinus eines 
Winkels. 


COS <zahl> bestimmt den Cosinus 
eines Winkels. 


TAN <zahl> ermittelt den Tangens 
eines Winkels. 

ARCTAN <zahl> errechnet den 
Arcus-Tangens eines Winkels. 


Um eine Zahl zu potenzieren, kann 
man wahlweise: 

? <zahl> Potenz 
oder 

? <zahl> Potenz Die Exponentialfunktion einer Zahl 

Die Zahl 8 3 z. B. ergibt 512.00036 ist durch EXP <zahl> zu ermitteln. 
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S tgiii^tOGO DlflLQGUEMMpj 

?L0G 60 
4.834345 
7L0G18 30 
1.477121 
?SIN 30 
0,5 

?C0S 45 
0.707107 
?TfiH 15 
8.267343 
TftRCTfiH 65 
89'. 118604 
?H 




Wie Sie schon gesehen haben, können 
alle diese mathematischen Funktionen 
nicht nur im Direkt-Modus angespro- 
chen, sondern auch in Programme ein- 
gebaut werden. Wir werden jetzt eine 
aufwendige Prozedur schreiben, in der 
Teile dieser Funktionen verdeutlicht 
werden sollen. Von Pythagoras wissen 
wir, daß die Länge der Hypotenuse ei- 
nes rechtwinkligen Dreiecks folgen- 
dermaßen berechnet werden kann: 


(Hypotenuse) 2 = (a) 2 + (b) 2 


Eine Prozedur in LOGO, die die Hy- 
potenuse berechnet, kann so aussehen: 


TO HYPOTENUSE :SEITEA :SEITEB 

MAKE "HYPO SQRT :SEITEA * :SEITEA + 
:SEITEB ★ :SE1TEB 

PRINT :HYPO 
END 


Wir wissen aus dem ersten Teil unse- 
res Kurses, daß eine Prozedur mit den 
Befehl TO anfangen und einen Na- 
men besitzen muß. Bei unserem Pro- 
gramm lautet der Name Hypotenuse. 


Die Prozedur läßt die Eingabe von 
zwei Parametern (a,b) zu. Die nächste 
Zeile zeigt uns zuerst die Benutzung 
von Variablen, sowie die Zuweisung 
eines errechneten Wertes. Die Varia- 
bel HYPO enthält den Wert der Hy- 
potenusenlänge, die folgendermaßen 
berechnet wird: SQRT :A ★ A + B 
★ B. Wir hätten dies auch anders be- 
rechnen können: SQRT :A 2 + B 
2. Die nächste Zeile verursacht, daß 
der Wert der Hypotenuse angezeigt 
wird. Die Prozedur wird, wie immer, 
mit END abgeschlossen. Wir werden 
jetzt unsere Prozedur erweitern, und 
zwar insofern, daß über die Tastatur 
eingelesen und die Hypotenuse be- 
rechnet wird. 


TO LESEN 
CT 

PRINT (BITTE GEBEN SIE SEITE a EIN) 
MAKE "SEITEA RL 

PRINT (BITTE GEBEN SIE SEITE b EIN) 
MAKE "SEITEB RL 
HYPOTENUSE rSEITEA :SEITEB 
END 


Zuerst wird durch CT das Textfenster 
freigestellt. Die nächste Zeile fordert 
Sie auf einen Wert über die Tastatur 
einzugeben. Durch RL (READ LIST) 
wird solange gewartet, bis eine Zahl 
eingegeben und mit RETURN abge- 
schlossen wird. Das Ganze wiederholt 
sich in der dritten und vierten Zeile 
damit dann in der fünften unsere alte 
Prozedur HYPOTENUSE aufgerufen 
werden kann. Unser Dreieck kann 
nicht nur berechnet werden, sondern 
auch gezeichnet. Das ist unser nächster 
Schritt. Geben Sie bitte ein: 


TO ZEICHEN :SEITEA :SEITEB : HYPO 
CS 

FD :SEITEA 
RT 90 
FD :SEITEB 

LT 180 - ARCTAN :A / :B 

FD :HYPO 

END 


Wie oben werden auch hier durch CS 
die Graphikfenster gelöscht und dann 
wird ein Dreieck gezeichnet. Wir füh- 
ren jetzt alle Teilprozeduren zu einem 
einzigen Programm zusammen. Zu 
diesem Zweck geben Sie jetzt bitte ein: 


TO DREIECK 
LESEN 

ZEICHEN :SEITEA :SEITEB : HYPO 
END 


Jetzt geben Sie im Direkt-Modus ein: 
DREIECK 


LOGO und die Logik 

Genauso wie mathematische Funktio- 
nen verfügt LOGO über einige logi- 
sche Operationen, die wir jetzt 
beschreiben möchten: 


AND < Aussage > < Aussage > 
Logisches UND. Ergibt TRUE, wenn 
alle Aussagen wahr sind, sonst ist die 
Antwort FALSE. 

? AND 10 > 5 7 < 9 ergibt TRUE. 

? AND 8 > 4 6 < 5 ergibt FALSE. 


OR < Aussage > < Aussage > 
Logisches ODER. Ergibt TRUE, 
wenn zumindest eine Aussage wahr 
ist. 


? OR 10 > 5 6 < 5 ergibt TRUE. 

? OR 8 > 9 6 < 5 ergibt FALSE. 

NOT < Aussage > 

NOT ergibt FALSE, wenn die Aussa- 
ge wahr ist und umgekehrt. 

? NOT 20 = 20 ergibt FALSE. 

? NOT 6 < 5 ergibt TRUE. 
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Desk File Run Edit Settings 


ft| LOGO DIOLQCÜEMMe aiai 

?f)HO 10 > 3 2 = Z 
TRÜE 

?fiKO 2 = I 8 < 3 
FflLSE 

?DR I > 4 2 = 2 
TRÜE 

?0R 10 < 5 4 > 7 
FflLSE 

?HDT 10 < 5 
TRÜE 


Damit ist unsere Folge zu einem Ende 
gekommen. Wir sind ein Stück weiter 
in das Reich von LOGO vorgedruiv 
gen. In unserer nächsten Folge werden 
wir uns intensiv mit Variabein, sowie 
Listen beschäftigen. 


EXTENSION CARTRIDGE MODULE für alle ATARI ST Computer: 


ZR 


• Digitales Multimeter 189,- DM incl. 

Graph. Darst. / aut. Meßreihenausw. / Plot. Funktion 

U.I.R: 2,20,200,1000 V.mA.KOhrn / 0,2 % 

• Universeller Monitor 149,- DM incl. 

Disk. Mon. / Hex-Dez-Umw. / T.Rechner 

Set, List, Transfer, Copy, ...Funktionen 


Z & R Computertechnik Sophienstr. 44 • 6000 Frankfurt 90 


Leserzuschriften 

Dokumentierte Programmlistings sind generell erwünscht, müssen uns 
aber als Ausdruck und Diskette mit lauffähiger Version zugesandt wer- 
den. Disketten werden gegen ausreichend frankierten Rückumschlag zu- 
rückgesendet. Die Texte können auch mit einem gängigen 
Textprogramm (ST Text, Ist Word) erstellt werden und in Diskettenform 
zugesandt werden. Bei Veröffentlichung wird selbstverständlich ein ange- 
messenes Honorar gezahlt. 

Bauanleitungen, Softwaretests oder sonstige Berichte, Erfahrungen oder 
Tips sind gerne willkommen. Alle Fragen und Zuschriften richten Sie bit- 
te nur schriftlich an 

Uwe Bärtels 
ST Redaktion 
Postfach 1131 
6242 Kronberg 

Da es sich um ein privates Postfach handelt, bitte unbedingt den oben ge- 
nannten Namen mit angeben. 


Qualitälsbiicher aus dem 

//e/ra-Verlag 


Prot Or B Bollow / N Bollow / 
M Fischer 

ATARI® 

ST 

Das große 
BASIC-BUCH 


Buch: 49,- DM 
Progr. -Diskette: 58,- DM 
Erscheint: Januar 1986 

- Kopieren von Files und Disketten, 
Löschen und Formatieren u. v. a. m. 


Das Standardwerk für alle ATARI ST- 
Besitzer. Auf über 300 Seiten eine klare 
und verständliche Einführung in die Pro- 
grammiersprache BASIC, elementare 
BAS IC- Kommandos, Diskettenhandha- 
bung und vieles, was zur perfekten Be- 
herrschung des ATARI ST gehört. 

Ein Spitzenbuch mit über 80 Übungs- und 
Anwenderprogrammen wie z. B.: 

Sortierprogramme / Textverarbeitung 
/ Umgang mit sequentiellen- u. Ran- 
dom-Dateien / Fakturierprogramm / 
Programmiertechniken an ausge- 
wählten Beispielen u. v. a. m. 

Zum Buch gibt es die Programmdiskette 
mit sämtlichen Beispiel-Programmen. 


K. Schneider / 0. Steinmeier 

ATARI® 

ST 

Grundlehrgang 


Buch: 49,- DM 
Erscheint: Januar 1986 


Da$ Buch für den "richtigen Einstieg mit 
dem ATARI ST. 

Leicht verständlich wird der Lernende in 
den Lernstoff eingeführt. 

Einige der Themen: 

die Hardware des ATARI ST 

- Überblick über die Systemkomponenten 

- Aufstellung des Computers 

- Wartung 

die Software des ATARI ST 

wie arbeite ich mit GEM 

(das Desktop / Maus / Icons etc.) 

- die Programmiersprachen 
BASIC / LOGO 

- die Programme 
GEMDRAW / GEMWRITE 
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Es gibt zunächst zu berichten, daß die 
Softwarewelle für die ATARI ST-Serie 
schon stark ins Rollen gekommen ist. 
ATARI hat sogar selbst den Alleinver- 
trieb für einige Softwarefirmen über- 
nommen und bietet einige Programme 
zum Verkauf an, wie zum Beispiel die 
des amerikanischen Softwarehauses 
Hippopotamus. Dazu zählt unter an- 
derem eine Diskette mit Nutzpro- 
gramme, die einen Diskmonitor und 
diverse weitere praktische Programme 
enthält. Desweiteren wird eine einfa- 
che Dateiverwaltung und eines der er- 
sten brauchbaren Spiele angeboten. 

Bei dem Spiel handelt es sich um 
BACKGAMMON. Es läuft sowohl in 
niedriger als auch in hoher Auflösung, 
was bedeutet, daß es nicht nur auf dem 
monochromen, sondern auch auf ei- 
nem Farbmonitor läuft. Es lassen sich 
verschiedene Spielstärken einstellen, 
so daß auch Anfänger eine Chance ge- 
gen den Rechner haben. 

Für alle die nicht so viel Geld für Soft- 
ware ausgeben wollen, gibt es inzwi- 
schen schon eine ganze Menge der 
sogenannten Public-Domain-Software. 
Dies ist wie schon im Editorial dieser 
Ausgabe erwähnt, Software die ko- 
stenlos auf Disketten kopiert werden 
darf. Sie verbreitet sich dann im 
„Schneeballsystem“ in diesem unserem 
Lande. Den Löwenanteil an diesen 
Programmen stiftet allerdings ATARI 
selber, wie folgende Tabelle dieser 
ATARI-Programme zeigt: 


Bild 1 

1. DB Master One - (siehe Bild 1) 
Dies ist eine komfortable Dateiver- 
waltung mit frei definierbarer Mas- 
ke. Näheres darüber in der 
nächsten Ausgabe. 

2. GST- Ist -Word - (siehe Bild 2) 
Ein Textverarbeitungsprogramm, das 
voll die GEM-Möglichkeiten, wie 
z. B. verschiedene Schriftarten auf 
dem Bildschirm ausnützt. Eine An- 
leitung wird auf der Diskette auf 
Englisch mitgeliefert. Auch dieses 
Programm wird in der nächsten 
Ausgabe näher besprochen. 


3. CP/M 2.2 Emulator - Über die- 
ses Programm wurde schon in der 
letzten Ausgabe berichtet. Zusätz- 
lich dazu wurde nun auch noch ei- 
ne Diskette mit CP/M-Nutzpro- 

grammen herausgegeben. Eine Anlei- 
tung wird derzeit bei ATARI er- 
stellt. Es sei noch erwähnt, daß die 
CP/M-Directory nur mit gelade- 
nem Emulator gelesen werden 
kann. Im normalen TOS erscheint 
als Meldung „0 Blocks belegt“. 

4. Doodle - Dies ist ein Zeichenpro- 
gramm für den monochromen Mo- 
nitor. Bisher war es nur im 
ATARI-Entwicklungspaket erhält- 
lich gewesen. 

5. Neochrom - Für alle die es gern 
bunt mögen, ist dies ein Zeichen- 
programm für den Farbmonitor. 
Vor allem die Demoprogramme 
sind besonders gelungen. 

6. Joshua - Dies ist der Monitor und 
Diskmonitor, auf den schon kurz 
in diesem Heft eingegangen wurde. 
Fairerweise muß man zu Joshua sa- 
gen, daß dieses Programm von 
ATARI einfach auf ihre Diskette 
kopiert wurde, es aber auch schon 
vorher als Public-Domain-Programm 
zu haben war. Wer eine genaue An- 
leitung wünscht, muß sich direkt 
an den Autor wenden. Die Adresse 
steht in der Einschaltmeldung. 

Alle diese Programme können, um es 

nochmal zu wiederholen, kostenlos 

bei jedem ATARI-Händler auf eigene 



Bild 2 
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Disketten kopiert werden. Die oben 
beschriebenen DB Maser One, Doodle 
und GST-lst-Word sind von ATARI 
als Ersatz für die schon lange ausste- 
henden GEM-Paint und GEM-Write 
gedacht. Damit steht also fest, daß die- 
se beiden Programme nicht mehr so 
schnell auf den deutschen Markt kom- 
men werden. 

Ferner gibt es noch einige Spiele als 
Public-Domain-Software, die aller- 
dings nur bedingt oder gar nicht bei 
ATARI-Händler zu erhalten sind. 
Darunter befindet sich zum Beispiel 
Megaroid von der Firma Megamax. 


Informationen 

XY-Koordinaten 

Will man im BASIC einen Kreis oder 
eine Linie an einen bestimmten Punkt 
im OUTPUT-Fenster erscheinen las- 
sen, so muß man bei der Angabe die 
XY-Koordinaten wissen. Da die maxi- 
male Auflösung in X-Richtung 640 
und in Y-Richtung 400 Pixel beträgt, 
könnte man annehmen, daß der Mit- 
telpunkt des OUTPUT -Fensters bei 
der Hälfte der maximalen Pixel läge, 
also bei 320/200 Pixel. Dies ist jedoch 
nicht der Fall, da durch die Umran- 
dung des Fensters einige Punkte nicht 
zu sehen sind. In X-Richtung hat man 
616 und in Y-Richtung 345 Pixel zur 
Verfügung. In Y-Richtung ist also nur 
eine ungerade Anzahl von Bildpunk- 
ten vorhanden, so daß man zum Bei- 
spiel ein Koordinatensystem nie genau 
in der Mitte des Fensters darstellen 
kann. Die Koordinate 0,0 liegt in der 
oberen linken Ecke des OUTPUT- 
Fenster, entsprechend 615/344 in der 
rechten unteren Ecke. 

Auch ohne Maus... 

kann man den Mauszeiger auf dem 
Bildschirm bewegen und mit ihm alle 
Mausfunktionen ausführen. Die Cur- 
sorpfeil-Tasten zusammen mit der 
Alternate-Taste gedrückt, ergeben die 
jeweilige Richtung des Zeigers. Die 
linke Maus-Taste entspricht „Alterna- 
te + Insert“ und die rechte „Alternate 
+ Clr/Home“. Die ganze Bewegung 
läßt sich noch durch zusätzliches 
Drücken der Shift-Taste verlangsa- 
men. Bei manchen Operationen, wie 


Um beim Thema Spiele zu bleiben. Ei- 
nige Abenteuerspiele (Adventures) 
sind inzwischen von anderen Rech- 
nern für die ATARI ST-Serie angepaßt 
worden. Um nur eingie zu nennen : 
Zork I + II, Ultima II und Hitchhiker. 

Nun zu einem weiteren wichtigen 
Punkt in diesen News. Es gibt eine 
neue TOS-Version. Sie hat 197 744 
Bytes und kann ebenfalls bei den 
Händlern kopiert werden. Es funktio- 
niert jetzt endlich die serielle Schnitt- 
stelle (RS 232C) einschließlich dem 
XON/XOFF-Handshake-Signal ein- 


zum Beispiel beim Kopieren von ein- 
zelnen Programmen, ist dies recht 
mühsam. 

Auch die Escape-Taste hat einige zu- 
sätzliche Funktionen. So bekommt 
man, wenn man sich Inhaltsverzeich- 
nisse von mehreren Disketten ansehen 
möchte, mit dieser Taste immer das 
aktuelle Verzeichnis, also das Ver- 
zeichnis der Diskette, die sich gerade 
im Laufwerk befindet. Man muß aber 
zuvor einmal ein Verzeichnis-Fenster 
geöffnet haben. 

Schneider Farbmonitor 
am ATARI ST 

Der RGB-Farbmonitor des CPC 464 
kann problemlos an den ATARI ST 
angeschlossen werden, vorausgesetzt 
es ist der Composite Synchron-Aus- 
gang (Monitorbuchse Pin zwei) vor- 
handen. Dies ist nur beim „alten“ 520 
ST nicht der Fall, aber auch bei diesem 
Modell kann der Ausgang nachgerü- 
stet werden, wie in der Januarausgabe 
beschrieben ist. Sodann müssen nur 
die drei Farbsignale rot, grün und 
blau, der Synchron Eingang (Sync) 
und Masse (Erde) des Monitors direkt 
mit den entsprechenden Ausgängen 
des Rechners verbunden werden (siehe 
Tabelle). Es kann erforderlich sein, 
daß der Bildfang am Monitor verstellt 


werden muß. 




ATARI ST 


Schneider Monitor 

Pin 


Pin 


Comp Syn. 

2 

4 

Sync. 

Grün 

6 

2 

Grün 

Rot 

7 

1 

Rot 

Blau 

10 

3 

Blau 

Masse 

13 

5 

Erde 


wandfrei. Außerdem stürzt das Be- 
triebssystem nicht mehr nach einer 
größeren Anzahl von Diskettenzugrif- 
fen ab. 

Wem das Textverarbeitungsprogramm 
der Firma GST gefällt, nachdem er es 
sich beim Händler kopiert hat, dem sei 
gesagt, daß es von der gleichen Firma 
ebenfalls einen unter GEM arbeiten- 
den C-Compiler gibt, der auch in ei- 
ner der nächsten Ausgaben von uns 
genauer unter die Lupe genommen 
wird. 


Autostart 

Es besteht beim Atari ST die Möglich- 
keit eine Autostartdatei zu erstellen. 
Eine solche Datei bewirkt, daß bei je- 
dem Hard- und Softwarereset die Pro- 
gramme nachgeladen werden, die in 
der Autostartdatei stehen. 

Um nun ein oder mehrere Programme 
automatisch zu starten, muß man fol- 
gende Anweisung befolgen. 

1. Man legt auf der Systemdiskette ei- 
nen neuen Ordner mit dem Namen 
"AUTO* an. Dabei wird keine Ex- 
tension benötigt. 

2. Jetzt kopiert man das bzw. die Pro- 
gramme, die automatisch gestartet 
werden sollen in diesen Ordner. 

Die Programme müssen alle die Exten- 
sion *PRG* haben. Gegebenenfalls 
muß man diese von ”.TOS” oder 
”TTP” mit der Info-Option umbe- 
nennen. 

Wenn man jetzt das System neu star- 
tet, wird das betreffende Programm 
automatisch mitgeladen und gestartet. 
Dies empfiehlt sich vor allem für 
RAM-Disks, die ein imaginäres Lauf- 
werk im Speicher erzeugen. 


ST Manager: ... 

...Kunden, ST Manager: Lager und ST 
Manager: Rechnung sind drei neue 
Programme, die ab sofort durch ATA- 
RI vertrieben werden. 
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Erfahrungen & Nachträge 


Erfahrungen beim Aufrüsten 
auf 1 Mega Byte 


Zusätzlich zu den in der letzten Ausga- 
be angesprochenen Problemen nach 
dem Aufrüsten auf 1 Mega Byte, kön- 
nen Fehler durch folgende Tips even- 
tuell beseitigt werden: 

1. In verschiedenen Systemen liegt ein 
* 47 pF Kondensator von Pin 39 des 

Videoshifters (U31) gegen Masse. 
Dieser Kondensator sollte entfernt 
werden. Er kann dann zwischen 
Pin 11 und Masse wieder eingesetzt 
werden. 

2. Der Ausgang RAS1 (Pin 18) der 
MMU sollte in der Mitte des Silber- 
drahtes der zusätzlichen RAM-Bank 
angelötet werden, um so eine gleich- 
mäßige Signalverteilung zu errei- 
chen. Dasselbe gilt für die Einspei- 
sung von RASO (Pin 8 der MMU). 

3. In den Zuleitungen von RASO und 
RASl kann ein Widerstand von 
68-100 Ohm zwischen der MMU 
und den RAMs eingesetzt werden. 
Die beiden Widerstände sollten 
möglichst nah an der MMU einge- 
baut werden. 


Farbfernseher mit SCART-Buchse 
als Farbmonitor 

In der letzten Ausgabe wurde diese 
Anschlußmöglichkeit beschrieben. Es 
ist jedoch hinzuzufügen, daß dabei 
nicht alle Farbfernsehgeräte verwendet 
werden können. Der Grund dafür ist, 
daß der ATARI ST ein Bildsynchron- 
impuls von 60 Hz liefert, die Fernseh- 
geräte aber einen von 50 Hz erwarten. 
Bei vielen Fernsehgeräten kann dies 
im Einzelfall durch den Bildfangregler 
nachgestellt werden. Bei Geräten der 
neueren Generation mit einer digita- 
len Bildablenkung sind die Toleranzen 
so eng, daß bei bestimmten Geräten 
(ITT Digivision, Telefunken PALCO- 
LOR u. a.) mit 60 Hz nicht mehr 
synchronisiert werden können. Eine 
Lösung ist im Moment noch nicht in 
Aussicht. Vermutlich ist es notwendig 
die Boot-ROMs im Rechner zu ändern. 


Fehlerkorrektur 

Auf Seite 49 + 50 der Januarausgabe 
muß es in Zeilennummer 1030 und 
1530 folgendermaßen heißen: 

FOR A = NR TO 1 STEP -1. 

Durch den Druck war das Minuszei- 
chen bei „ - 1 “ leider schlecht zu lesen. 

Bei dem Logo Programm-Beispiel SPI- 
RAL auf Seite 60 hat sich ein weiterer 
Druckfehler eingeschlichen. Das rich- 
tige Listing lautet: 

TO SPIRAL :SEITE : WINKEL :INS :INW 
FD :SEITE 
RT : WINKEL 

SPIRAL :SEITE + :INS : WINKEL + :INW :INS : INW 
END 


Vorschau 

Für den Amateurfunker: 

Ein ausführlicher Testbericht über ein Funkfernschreibprogramm (RTTY). 
Übersicht über die Befehle des 68 000er Prozessors. 

Der 68 000er Prozessor unter die Lupe genommen. 

Ausführliche Softwaretests: 

• VIP Professional 

• DB Master One 

• Ist Word 

Fortsetzung der Kurse: 

• GEM 

• Pascal 

• Logo 


Der erste Farbmonitor 

„Thomson for Atari“ so heißt der er- 
ste Farbmonitor für den ST, der von 
ATARI vertrieben wird. Der Monitor 
der Firma Thomson wird komplett 
mit Verbindungskabel zum Preis von 
DM 1400,- geliefert und sollte bei je- 
dem System-Fachhändler zu bekom- 
men sein. Der erste Eindruck war 
recht positiv (ausführlicher Bericht 
folgt). 


Kleinanzeigen 

Ab nächster Ausgabe soll in 
der ST-Computer eine Klei- 
nanzeigenbörse eröffnet 
werden. 

Privatanzeigen kosten pro 
Zeile und Spalte DM 6,— 
incl. MwSt. 

Gewerbliche Anzeigen ko- 
sten DM 7,— pro Zeile und 
Spalte. 

Zur Einsendung bitte die 
beiliegende Karte verwen- 
den. 

Einsendeschluß ist der 7. 
Februar 1986. 

Verspätete Einsendungen 
kommen in die April- 
Ausgabe. 
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Als erstes möchte ich Ihnen ein Lob 
über die Zeitschrift-Aufmachung und 
über den Inhalt machen. 

Ich habe einen RGB-Monitor der Mar- 
ke MICRO- VITEC Cub 653 mit einer 
RGB-TTL DIN Buchse. Den Monitor 
habe ich bisher mit einem Sinclair QL 
betrieben. 

Meine Frage: Ist es möglich den Moni- 
tor an den ATARI 520ST anzuschlie- 
ßen? Ich hätte noch eine zweite Frage: 
Können Sie mir die Anschrift einer 
Firma mitteilen die eine Speicherer- 
weiterung macht? 

Dietmar Fox 
Garmisch 

Antwort: 

Wir bedanken uns für Ihren Brief. 

a) Generell ist jeder RGB-Monitor 
problemlos an den ATARI an- 
schließbar. Es ist jedoch bei einigen 
Modellen erforderlich den Bildfang 
anzugleichen, da der Rechner mit 
60 Hz und der Monitor mit 50 Hz 
synchronisiert. Näheres finden Sie 
auf Seite 70 in dieser Ausgabe. 

b) Es gibt grundsätzlich viele Firmen 
die diesen Umbau vornehmen. Ei- 
ne der möglichen Adressen finden 
Sie unter den Inseraten dieser 
Ausgabe. 

Die Redaktion 


Seit kurzem bin ich stolzer Besitzer ei- 
nes Atari 520 ST und habe beschlossen 
Ihre Zeitschrift regelmäßig zu kaufen, 
besonders, weil diese Zeitschrift ver- 
spricht, interessante, abzutippende 
Programme zu bringen. 

Leider mußte ich in der ersten Ausga- 
be feststellen, daß das Grafikpro- 
gramm ’Vl.O’ auf den Seiten 48-51 
nur bruchstückhaft läuft. Nach müh- 
samen Eintippen stand mir nur die 
Kuchengrafik vollständig zur Verfü- 
gung. Am Diagramm fehlte die Be- 
schriftung und die Balkengrafik fehlte 
vollständig. Hiermit bitte ich Sie herz- 
lich, mir die Lösung dieser Aufgabe 
zukommen zu lassen, bzw. in Ihrer 
nächsten Ausgabe auszudrucken. Für 
meine Lehrtätigkeit an einer Schule 
könnte ich das fertige Programm 
schnell gut gebrauchen. 

Vielen Dank 
Heinrich Will 
Klingenberg 

Antwort: 

Es freut uns, daß Ihnen das Programm 
zusagt. Die bei Ihnen aufgetretenen 
Fehler lagen am etwas schwachen 
Druck. In den Zeilen 1030 und 1530 
verschwanden bei einigen Heften die 
Minuszeichen. Dies hat zur Folge, daß 
diese zwei Schleifen nicht abgearbeitet 
werden, wodurch die Beschriftung (ab 
1500) und das Balkendiagramm (ab 
1000) nicht erscheint. 

Ansonsten auftretende Fehler liegen 
am Abtippen, da das Listing nach ab- 
schließendem Test direkt ausgedruckt 
wurde. 

An dieser Stelle wollen wir Sie auf un- 
seren Diskettenservice hinweisen. 

Die Redaktion 


Rechnen mit ATARI ST 

In meiner Not mit dem ST 520 wende 
ich mich an Sie und bitte um einen 
Tip. Im Dezember habe ich mir den 
Atari 520 ST zugelegt. Seit vielen Jah- 
ren arbeite ich mit einem Commodore 
3032 und da dachte ich, daß ein biß- 
chen technischer Fortschritt mir auch 
nutzen könne. Für viele Spielereien 
(auch ernsthafte) ist der Atari ST ja ein 
tolles Ding. Wehe aber, wenn der 
Rechner rechnen soll. Ich betreibe als 
Hobby Astronomie und da gibt es ja 
viele Dinge zu berechnen. Aber mit 7 
Stellen Genauigkeit ist da nichts zu 
machen (da kann ein Millionär noch 
nicht einmal seine Pfennige zusam- 
menkratzen!). Die Planeten werden 
aus ihrer Bahn ab- oder aufgerundet 
und sind nach wenigen Tagen nicht 
mehr zu finden. Auch finde ich es wit- 
zig, daß ohne eine Warnung alles was 
größer als 10 hoch 18 ist einfach zu 
Null wird. 

War denn meine Erwartung zu hoch, 
als ich annahm, daß ein Computer 
Baujahr 1985 einem Taschenrechner 
wenigstens ebenbürtig sei? 

Wird Atari denn ein gebrauchstüchti- 
ges Basic jemals schaffen? 

Vielleicht gelingt es Ihrer Zeitschrift 
der Firma etwas Dampf unter den 
Hintern zu machen oder aber Sie soll- 
ten fairerweise Kaufinteressenten, die 
auch noch Rechenambitionen haben 
vor dem Atari ST warnen. 

Dr. Emil Jung 
Marl 

Antwort: 

Ihre Enttäuschung wegen der Reche- 
nungenauigkeit des mitgelieferten 
Basic-Interpreters können wir leider 
momentan nur teilen. Digital Research 
überarbeitet zur Zeit sämtliche Soft- 
ware, aber genaue Lieferungstermine 
sind uns unbekannt. Allerdings ist der 
ATARI ST kein reiner Basic-Rechner, 
deshalb ist es keineswegs berechtigt die 
sehr gute Hardware des Rechners we- 
gen eines Softwarefehlers, der sicher 
bald behogen wird, zu verurteilen. Für 
höhere Ansprüche stehen diverse an- 
dere Sprachen wie z. B. C, Pascal oder 
Fortran zur Verfügung. Außerdem ist 
ein Basic-Modul von METACOMCO 
angekündigt. 

Die ST-Redaktion 
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SOFTWARE FÜR ATARI ST 


Produkt 


VK-Preis 

Adress-Perfect 

Adressverwaltung 

148,- 

läuft unter GEM. suchen & sortieren nach allen Feldern, 
Schnittstelle zu beliebiger Textverarbeitung. 
SERIENBRIEFSCHREIBUNG 


Side-Click 

Terminplaner 

198,- 

mit Taschenrechner. Kalender. Uhr Terminplanung 


und Überwachung usw. 

VT 100 

Terminal-Emulator 

248,- 

unter GEM mit Upload/Download, Protokolldruck und 


voll VT 100 kompatibel 

C-Library 

Standard 

128,- 

C-Library 

Extra 

128,- 

C-Library 

Grafik 

128,» 

C-Library 

GEM 1 

128,- 

C-Library 

GEM 2 

128,- 

C-Library 

Resource 

128,- 

Die große Bibliothek für C-Programmierer 


näheres siehe INFO 1/86 

C-Library 

UNIX 1 

158,- 

C-Library 

UNIX 2 

158,- 

TBC-Compiler 

The Best C-Compiler 

498,- 


inkl-, Assembler. Linker & UNIX Librarys - Verarbeitei 
UNIX Sourcecode - Optimiert wie kein anderer! ! 1 
Softwareentwicklung auf ST - nur mit TBC 


Produkt VK-Preis 

TBC-LINT The Best C Lint 298,- 

LINT - Das Präparat gegen Typenkonflikte, schlechte 
Argumentübergabe. Variablenmüll. Strukturfehler usw. 

Gegenanzeige: Nicht anwenden bei Allergie gegen sau- 
bere Programmierung. 

TBC-Development TBC-Compiler und 

LINT 748,- 

Profi-Monitor ST System-Monitor 298,-- 

Direkt Assembler. Disassembler. Debugger. Hex-Ascii- 
Binär-Editiern 

Profi-Assembler ST Assembler 198,- 

Der preiswerte, komfortable ST Assembler 

Editor-Disk Icon, Font & Maus Editor 148,- 

läuft unter GEM. muß man einfach haben! 

ARST Archive Programm 98,- 

Für TBC und Entwicklungspaket! 

Disc-Monitor Disketten-Monitor 178,- 

Der bewährte, jetzt noch besser! 

Profi-Copy Fast Disk-Backup 128,- 

Komplettes Backup in WENIGER ALS 35 SEKUNDEN! ! 

File-Copy + Fast File-Copy 98,- 

Wie oben, jedoch für Files. Wahnsinnig schnell!!! 

Drucker-Disk Drucker Utilitys 98,- 

Drucker-Treiber. Drucker-Spooler. Druck-Programm 


Fordern Sie unsere Info an! 



SOFTWARE 

KNOW HOW IS OUR BUSINESS 


Jakobstraße 8 a 6096 Raunheim - © (0 61 42) 4 31 42 


GENERALVERTRETUNG 

SCHWEIZ: 

SAMA Electronics 
Bahnhofstraße 7 
CH-5400 Baden 


Alle Preise sind empfohlene 
Endverbraucherpreise incl. 
14 % Mehrwertsteuer. Ände- 
rungen Vorbehalten. Nähere 
Informationen erhalten Sie 
bei Ihrem ATARI-Händler 
oder direkt bei uns. 


ATARI 520 ST - Wir liefern das Zubehör: 


Trak-Grabber 
kopiert geschützte 
ST-Software 

nur 139 - DM 


VIP-Professional 
nur 5 78,- DM 


Fortb. - Entwicklungspaket 
(Multiuser-tashing) 

— —— I 499,- DM 


Gem-Pascal 239,- DM 


1 


C> <£ 


Telekommunikation 
Akustikkoppler & Kabel & 
komfortable Software 

nur 499 - DM 




Mega Board 
1 MByte Speicher 
399,- DM 


Spiele ab 50,- DM 


Informationen 

& 

Bestellungen bei: 

Hendrik Haase 
Computersysteme 
Wiedfeldtstraße 77 
D-4300 Essen 1 
Tel.:0201-422575 









